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

На паскале (через for to do)

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