Впяти тестовых опросах мальчик получил оценки.составите алгоритм и программу,которая определит среднее значение оценок, полученных мальчиком в пяти опросах

Var a,b,c,d,e,f:real;
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний = ',f);
end.