Среди всех трехзначных чисел все перевертыши(последняя и начальная цифры ) через for to do написать программу на языке паскаль

Var i:integer;
begin
for i:=100 to 999 do
 if (i div 100)=(i mod 10) then writeln(i);
end.

Результат:
101
111
121
131
...
979
989
999