Максимум последовательности
Последовательность состоит из натуральных чисел и завершается числом 0. Определите значение наибольшего элемента последовательности.
Числа, следующие за нулем, считывать не нужно.
Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).
Выходные данные
Выведите ответ на задачу.
Исходный код на языке Pascal
var
a, k: integer;
begin
read(a);
k := a;
while a <> 0 do
begin
if (a > k) then
k := a;
read(a);
end;
writeln(k);
end.