программу которая будет вводить целые числа до тех пор пока не будет введен нуль и определение

program z;var a,i:integer; max:real;beginmax:=0;i:=0;repeat writeln('Введите число'); read(a);max:=max+a;i:=i+1;until a=0;writeln('Сумма =',max);writeln('Средние знач =',max/i);end.