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

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