Необходимо решить : в переменную x по очереди вводится последовательность целых чисел до ввода 0. в переменной max получить максимальное из чисел. нужно эту решить в цикле, можно блок схемой или программой на языке pascal.

Var x,max:integer;
begin
write('x='); readln(x);
max:=x;
while x<>0 do
 begin
 if x>max then max:=x;
 write('x='); readln(x);
 end;
writeln('max=',max);
end.

Пример:
x=12
x=34
x=87
x=46
x=39
x=7
x=45
x=0
max=87