program hh_cp;

uses crt;

var n,i:integer;

{---Ham-hoan-hao---}

function hh(k:integer):boolean;

var t,j:integer;

begin

       t:=0;

       for j:=1 to k div 2 do

              if k mod j=0 then t:=t+j;

       if t=k then hh:=true esle hh:=false;

end;

{---Ham-chinh-phuong---}

function cp(k:integer):boolean;

begin

       if sqr(trunc(sqrt(k)))=k then cp:=true else cp:=false;

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=2 to n do 

              if hh(i) then write(i,' ');

       writeln;

       for i:=1 to n do

              if cp(i) then write(i,' ');

       readln;

end.

mình xin trả lời

program in_nt;

uses crt;

var n:integer;

function kt_nt:boolean;

 var i:integer;ok:boolean;

    begin 

         ok:true;

           for i:=2 to n-1 do(vì số nto kể từ số 2 nên chạy từ 2,n-1 vì trừ đi 1 giá trị của phần tử đầu á)

              if n mod 2=0 then ok:=false;

              kt_nt:=ok;

     end;

begin

 clrscr;

     write('nhap n');

      readln(n);

           if kt_nt then 

                begin

                     for k:=2 to i-1 do

                         if i mod k= 0 then write(k:2:5);

                 end;

   readln;

end.