uses crt;
var m,n,i,p: integer;
begin
clrscr;
    readln(m,n);
    for i:=m to n do if sqr(trunc(sqrt(i)))=i then p:=1;
    if p=1 then begin
        write('Cac so chinh phuong tu ',m,' den ',n,' la: ');
        for i:=m to n do if sqr(trunc(sqrt(i)))=i then write(i,' ');
    end else write('Khong co so chinh phuong tu ',m,' den ',n);
    readln
end.

- Sqr(Trunc(Sqrt(A))) = A

+ Ví dụ A = 9 là số chính phương

⇒ Sqrt(9) = 3

⇒ Trunc(3) = 3

⇒ Sqr(3) = 9

⇒ Sqr(Trunc(Sqrt(9))) = 9

+ Ví dụ A = 8 không là số chính phương

⇒ Sqrt(8) ≈ 2.828427

⇒ Trunc(2.828427) = 2

⇒ Sqr(2) = 4

⇒ Sqr(Trunc(Sqrt(8))) = 4 <> 8

- Viết chương trình :

uses crt;

var M, N, k, d : integer;

function C(k : integer) : real;

begin C := sqr(trunc(sqrt(k))); end;

begin

clrscr;

write('M = '); readln(M);

write('N = '); readln(N);

write('Cac so chinh phuong trong doan tu ', M ,' den ', N ,' la : ');

for k := M to N do

    if C(k) = k then write(k,' ')

    else d := d + 1;

if d = (N - M + 1) then write('Khong co');

readln

end.