Найти все трехзначные числа, квадраты которых оканчивается тремя одинаковыми числами отличными от нуля. На паскале
Числа должны выводиться сразу в квадрате, а не (100,200,300,400)

Программа:

var i,a,a1,a2,a3: integer;

begin

for i:=101 to 999 do

begin

a:=i*i;

a1:=a mod 1000 div 100;

a2:=a mod 100 div 10;

a3:=a mod 10;

if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);

end;

end.

Результат:

462 213444

538 289444

962 925444