Pascal
var
i:integer;
begin
i:=100;
while i<=999 do begin
if (i div 100) + (i mod 10) = 2 then
writeln(i);
inc(i);
end;
end.
