Найти наибольшее число с цифрой 3 на конце среди n задаваемых.

2
3
4
5
6
7
8
9
10
11
12
var
m, max: Integer;
begin
WriteLn('Введите последовательность целых чисел, оканчивающуюся нулём');
Read(max);
repeat
Read(m);
if m=0 then Break
else if max until False;
WriteLn('Max = ',max);
end.