Напишите на паскале, : Напечатать все трехзначные числа от А до В, у которыхпервая и третья цифры одинаковые.

var
a,b,i:integer;
begin
readln(a,b);
for i:=a to b do
if (i mod 10= i div 100) and (i div 100<>0) then
writeln(i);
end.