Pascal (гдето так...)
program treska;
var a,i,k,b,b2,b3:integer;
begin
for i:=100 to 999 do
a:=sqr(i);
k:=a-i;
b:=a-k;
if i=b then write (i,' ');
end;
readln
end.
