Вводится произвольная последовательность целых чисел. найти наибольшее из всех чисел.

На паскале

---

uses crt;

var a, b, max: integer;

begin

writeln ('Вводите последовательность. Окончание последовательности - 0.');

readln (a);

max:=a;

while a0 do begin

if (a>max) then max:=a;

readln (a);

end;

writeln ('Наибольшее число последовательности: ', max);

end.