Дана непустая последовательность различных натуральных чисел, за которой следует 0.

[lider24816]

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить максимальное по абсолютному значению число в данной последовательности.

[alex_fcsm]

var max,i:integer;

begin
writeln('Input number');
readln(max);
repeat
readln(i);
if max<i then max:=i;
until i=0;
writeln('Max:',max);
end.