Написать программу, которая выводит на экран все трехзначные палиндромы. Использовать цыкл for to

Деление нацело на 100 дает первую цифру (i div 100). Остаток от деления на 10 дает последнюю цифру (i mod 10).

Если первая и последняя цифра равны, то трехзначное число будет палиндромом.

program plndrm;

var i: integer;

begin

for i:=100 to 999 do if i div 100 = i mod 10 then write (i : 4)

end.