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

На паскале

---

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.