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

vara,b,i:integer;beginreadln(a,b);for i:=a to b doif (i mod 10= i div 100) and (i div 100<>0) thenwriteln(i);end.