Chương trình tìm số nguyên tố pascal

Function nt[x:integer]:boolean;
Var i:integer;
Begin
  nt:=true;
For i:=2 to trunc[sqrt[x]] do
  if x mod i =0 then
     nt:=false;
End;

[=========> Bổ sung bài viết Bổ sung bài viết 1; End;

[=========> Bổ sung bài viết n];
    If i*i>n then Writeln [n,' la so nguyen to']
    Else Writeln [n,' khong phai la so nguyen to'];
End;
Readln;
End.

Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N [N là số nguyên không âm được nhập từ bàn phím].

Program CAC_SO_NGUYEN_TO;
Uses crt;
Var n,i,t: integer;
Begin
Clrscr;
Writeln['IN RA CAC SO NGUYEN SO