Составить программу, которая вычисляет среднее арифметическое чисел. введенных с клавиатуры. Ввод чисел заканчивается, когда вводится 0. (на языке Паскаль)

var

a, i : integer; / / объявляем переменные целочисленного типа.

sum : real; / / объявляем переменную вещественного типа.

begin

writeln ('введите последовательность чисел, окончание ввода - число 0:');

a : = 1; / / нужно для выполнения цикла.

while a 0 do / / начало цикла.

begin

readln (a); / / считываем число, введенное с клавиатуры.

if (a = 0) then

write ('Среднее арифметическое, введенных чисел равно: ', round ((sum / i), 2));

sum : = sum + a; / / считаем сумму введенных чисел.

i : = i + 1; / / считаем количество введенных чисел.

end;

end.