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

var
   date, number, summa : integer;
   avarage : real;
begin
   date := 1;
   summa := 0;
   number := 0;
   avarage := 0;
   repeat
      readln(date);
      if (date 0) then
         begin
            number := number + 1;
         end;
      summa := summa + date;
   until (date = 0);
   avarage := summa / number;   writeln(Summa = , summa);
   writeln(Srednee znachenie = , avarage:2:3);
   readln;
end.