Напишите программу в 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.