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

Предполагается, что будет введено минимум одно значение.

varmax,a : integer;beginreadln(a);max := a;repeatreadln(a); if (a > max) and (a <> 0) then max := a;until a = 0;writeln(max);readln;end.

P.S. Если понравилось решение не забудь отметить как лучшше. ;)