Осуществить ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.

program z8_1;

uses crt;

var

i:shortint;

k, n:byte;

s:integer;

sa:real;

begin

clrscr; i:=1;

repeat

read (i) ;

if i>0 then begin

k:=k+1;

s:=s+i;

end;

until i=0;

sa:=s/k;

write ('Количество чисел:', k,' Сумма чисел:', s,'Среднее арифметическое:', sa:4:2) ;

readkey

end.