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

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.