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

Предполагается, что будет введено минимум одно значение.   var max,a : integer; begin readln(a); max := a; repeat readln(a); if (a > max) and (a <> 0) then max := a; until a = 0; writeln(max); readln; end.   P.S. Если понравилось решение не забудь отметить как лучшше. ;)