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

Ответ:

program love

var x,y,z:integer;

begin

for x:=1 to 9 do

 for y:=0 to 9 do

  for z:=0 to 9 do

   if ((sqr(x*100+y*10+z))div 100 mod 10 = x)and

      ((sqr(x*100+y*10+z))div 10 mod 10 = y)and

      ((sqr(x*100+y*10+z))mod 10 = z)

      then write(x,y,z,' ')

end.