Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введёных чисел. Используйте оператор repeat. Решить в паскале.

program max_number;

var n, max: integer;

begin

max : = - 1000;

repeat

read (n);

if n > max then max : = n

until n = 0;

writeln ('Максимальное число равно = ', max)

end.

После каждого ввода в строке

if n > max then max : = n

сравнивается значение введенного числа n c зафиксированным максимальным значением в переменной max.

Условие завершения цикла repeat until n = 0:

завершить выполнение, если n = 0.