Ответы и объяснения

Лучший Ответ!
2014-03-31T18:06:48+04:00
Var i,a,n,m:integer;
begin
readln(n);
for i:=1 to n do begin
read(a);
if (a mod 10 = 2) and (a>m) then m:=a;
end;
writeln(m);
end.