Вводится последовательность ненулевых чисел, 0 – конец последовательности. Опред

Var a,max:integer; begin   max:=0;   repeat      readln(a);      if a>max then max:=a;   until a=0;   writeln('max: ',max); end. Вариант с циклом while var a,max:integer; begin   writeln('Введите число: ');   readln(a); max:=a;   while a<>0 do begin    writeln('Введите число: ');    readln(a);    if a>max then max:=a;   end;   writeln('max: ',max); end.