Написать программу, которая вводит с клавиатуры 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.