uses crt;
var a,b,c,n,s,d,x,y: integer;
function kt(n: integer): boolean;
var m,s: integer;
begin
 m:=n;
 if sqrt(n)=round(sqrt(n)) then
 begin
 while m<>0 do
 begin
  s:=s+(m mod 10);
  m:=m div 10;
 end;
 if s=n then kt:=true else kt:=false;
 end
 else kt:=false;
end;
begin
clrscr;
write ('nhap n: ');   readln (n);
writeln ('cac so thoa man dieu kien la: ');
for a:=1 to 9 do
 for b:=0 to 9 do
  for c:=0 to 9 do
   if ((a*100+b*10+c)=n*(a+b+c)) then
   begin
   write (a,b,c:3); inc(d);
   end;
   if d=0 then write ('khong ton tai');
   writeln;
  if kt(n)=true then writeln (n,' la so cong chinh phuong')
  else writeln (n,' khong phai la so cong chinh phuong');
  d:=0;
  writeln ('cac so cong chinh phuong x+y=n la: ');
  for x:=1 to n do
   for y:=1 to n do
   if (kt(x)=true) and (kt(y)=true) then
   if x+y=n then begin writeln (x,'+',y); inc(d); end;
  if d=0 then writeln ('khong ton tai');
 readln;
end.