uses crt;
var n,i,x,y:longint;
function nt(a:longint):boolean;
var i:longint;
begin
   if a>1 then nt:=true else nt:=false;
   for i:=2 to trunc(sqrt(a)) do 
      if a mod i=0 then nt:=false;
end;
function kt(a:longint):longint;
begin
   kt:=a;
   while (not(nt(kt)))or(a mod kt<>0) do dec(kt);
   if kt=1 then kt:=-1; 
end;
begin 
clrscr;
   write('N=');readln(n);
   if sqrt(n)=trunc(sqrt(n)) then 
      writeln('- N la so chinh phuong') else writeln('- N khong la so chinh phuong');
   i:=n;
   while sqrt(i)<>trunc(sqrt(i)) do dec(i);
   writeln('k=',n-i);
   for x:=0 to n do 
      begin 
         y:=n-x;
         if (sqrt(x)=trunc(sqrt(x)))and(sqrt(y)=trunc(sqrt(y))) then break;
      end;
   if x=n then writeln('Khong ton tai X, Y') else
   writeln('X= ',x,'; Y=',y);
readln 
end.

Test đề có vấn đề. 0+36 là số chính phương.