Pascal (гдето так...)

program treska;

var a,i,k,b,b2,b3:integer;

begin

for i:=100 to 999 do

begin 

a:=sqr(i); 

k:=a-i;

b:=a-k;

if i=b then write (i,'    ');

end;

readln

end.