Напишите программу, которая вводила бы с клавиатуры 10 вещественных чисел и вычисляла бы их среднее арифметическоев Pascal

Предыдущий
вопрос Следующий
вопрос

va
i: integer
sum, num: real;

begi
sum := 0;

for i := 1 to 10 d
begi
Write('Введите число ', i, ': ')
ReadLn(num)
sum := sum + num
end;

WriteLn('Среднее арифметическое: ', sum / 10:0:2)
end.