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

Program n1;var a,max: integer;beginreadln(a);max:=a;repeatreadln(a);if a>max then max:=a;until (a=0);writeln(max);end.