Найти все трехзначные симметричные натуральные числа из промежутка от a до b.(a и b вводятся с клавиатуры) — Pascal(Паскаль)

var
a,b,i:integer;
begin
writeln('vvedite nashalo intervala');
readln(a);
writeln('vvedite conec intervala');
readln(b);
for i:=a to b do
if (i mod 10)=(i div 100)then write(i,' ');
readln;
end.