напишите программу на языке паскаля через цикл while, которая определяет максимальное из введенных чисел с клавиатуры (ввод чисел заканчивается числом 0).

var

a, m : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('введите последовательность положительных чисел, окончание ввода - ноль:');

readln (m); / / считываем первое число, считаем его максимальным.

a: = 1;

while a 0 do / / начало цикла.

begin

readln (a); / / считываем число, введенное с клавиатуры.

if (a > m) then / / если число больше максимального.

m : = a; / / считаем текущее число максимальным.

end;

write ('Максимальное число из введенной последовательности равно: ', m); / / вывод строки.

end.