Напишите программу в Pascal для этой задачи: Найти среднее арифметическое и сумму последовательности положительных чисел
Var a, sum, i : integer; s, x : string; sa : real; beginsum:=0;readln(s);for i:=1 to length(s) do beginx:=copy(s, i, 1);val(x, a);sum:=sum+a;end;sa:=sum/(length(s));writeln('сумма: ', sum);writeln('среднее арифметическое: ', sa:4:2);end.