Ребят помогите с задачей в Pacal.
Натуральное число называется палиндромом, если его запись читается одинаково с начала и с конца (например: 1,22,393). Найти все меньшие 100 натуральные числа , которые при возведении в квадрат дают палиндром.

Спасибо большое :)

var i,w,q,e:integer;beginfor i:=1 to 100 dobeginq:=0;w:=i*i;e:=w;while e>0 dobeginq:=q*10+ e mod 10;e:=e div 10;end;if q=w then write(i,' ');end;end.