Pascal: Dùng lệnh for hoặc while để kiểm tra một số có phải là số chính phương hay không

Dùng lệnh for:

uses crt;
var n,i:longint; kt:boolean;
begin
clrscr;
   write(‘Nhap mot so: ‘);readln(n); 
   kt:=false;
   for i:=0 to n do if i*i=n then kt:=true;
   if kt then writeln(‘So nay la so chinh phuong’) else
   writeln(‘So nay khong la so chinh phuong’);
readln
end.

Dùng lệnh while:

uses crt;
var n,i:longint; 
begin
clrscr;
   write(‘Nhap mot so: ‘);readln(n); 
   i:=0;
   while (i*i<>n)and(i<n) do inc(i);
   if i*i=n then writeln(‘So nay la so chinh phuong’) else
   writeln(‘So nay khong la so chinh phuong’);
readln
end.