program ThreeDigitNumbers;
vari: integer;
beginfor i := 100 to 999 dobeginif (i mod 10 = i div 100) thenwriteln(i);end;end.
program ThreeDigitNumbers;
var
i: integer;
begin
for i := 100 to 999 do
begin
if (i mod 10 = i div 100) then
writeln(i);
end;
end.