Задайте пяти ученикам пять оценок с клавиатуры. Найти средний балл

Нужно написать программу, вроде

var a,s:real;

   b:integer;

begin

s:=0;

for b:=1 to 5 do begin

writeln('Введите оценку:');

read(a);

s:=s+a;

end;

s:=s/5;

writeln('Средний балл:',s);

end.