Написать программу, которая вводит с клавиатуры 5 вещественных чисел и вычисляет их среднее арифметическое. на паскале (через for to do)

Текст программы + результат тестирования
var a, b, c: real;
i : integer;
begin
b:=0;
for i:=1 to 5 do
begin
write('Введите число: ');
read(a);b:=b+a;
end;
c:= b/i;
writeln('Среднее арифметическое значение чисел: ', c);
end.