Viết 1 hàm kiểm tra 1 số nguyên x có phải là số chính phương không? Ứng dụng hàm này hãy in ra màn hình các số chính phương nhỏ hơn 100. Đang cần gấp

program chinh_phuong;

Uses crt;

var i:integer;

{—ham-chinh-phuong—}

function ktcp(x:integer):boolean;

begin

       if sqr(trunc(sqrt(x)))=x then ktcp:=true esle ktcp:=false;

end;

{—Chuong-trinh-chinh—}

BEGIN

       clrscr;

       for i:=1 to 99 do  {Vì nhỏ hơn 100}

              if ktcp(i) then write(i,’ ‘);

       readln;

end.