Дана последовательность целых чисел оканчивающихся нулём. Написать программу находящее самое большое число из всех чисел в последовательности. Программа для PascalABC

Ответ учителя по предмету Информатика

Var

A,M:integer;

Begin

WriteLn(‘Введите последовательность целых чисел’);

M:=0;

Repeat

Read(A);

if A>M then M:=A;

Until A=0;

WriteLn(M)

End.