Напишите программу, в которой осуществляется ввод целых чисел

Предполагается, что будет введено минимум одно значение. 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. Если понравилось решение не забудь отметить как лучшше.