Напишите программу в Pascal для этой задачи: Найти среднее арифметическое и сумму последовательности положительных чисел

Вопрос школьника по предмету Информатика

Напишите программу в Pascal для этой задачи:
Найти среднее арифметическое и сумму последовательности положительных чисел

Ответ учителя по предмету Информатика

var a, sum, i : integer; s, x : string; sa : real;

begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln(‘сумма: ‘, sum); writeln(‘среднее арифметическое: ‘, sa:4:2);end.