Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром.Pascal Abc

var x,a:integer;beginx:=10;while (x<100) do begina:=x*x;if (a<999) then beginif (((a mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)thenwriteln(x);endelse beginif (((a mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)thenwriteln(x);end;x:=x+1;end;end.