Нахождение среднего, максимального, минимального, суммы из последовательности вводимых чисел

var
  z, s, i: real;
begin
  s := 0;z := 1;
  writeln('Введите числа');
  while z <> 0 do
  begin
    readln(z);
    s := s + z;
    i := i + 1;
  end;
  writeln('Среднее арифметическое', (s / i):0:3);
end.

var
  z, max: integer;
begin
  writeln('Введите числа');
  z := 1;
  while z <> 0 do
  begin
    readln(z);
    if z > max then max := z
  end;
  writeln('Maks ', max)
end.

var
  z, a, sum: integer;
begin
  z := 1;
  writeln('Введите числа');
  while z > 0 do
  begin
    readln(z);
    sum := sum + (z mod 10); 
  end;
  writeln('Сумма цифр ', sum);
end.

var
  z, sum: integer;
begin
  z := 1;
  writeln('Введите числа');
  while z <> 0 do
  begin
    readln(z);
    sum := sum + (z*z);
  end;
  writeln('Сумма квадратов ', sum);
end.

var
  z, min: integer;
begin
  writeln('Введите числа, цифра 0 для окончания');
  z := 1;
  while z <> 0 do
  begin
  readln(z);
    if z <> 0 then min := z   
  end;
  writeln('Min ', min)
end.

var
  z, min: integer;
begin
  writeln('Введите числа, цифра 0 для окончания');
  z := 1;
  min:=0;
  while z <> 0 do
  begin
  readln(z);
    if z > 0 then min := z   
  end;
  writeln('Min ', min)
end.