Объяснение:
var n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
readln(a);
if (a mod 10 = 3) and (a > max)
then max := a;
end;
writeln(max);
end.
