Viết chương trình nhập vào số nguyên n và kiểm tra số nguyên đó có phải là số nguyên tố không ?

Program Hotboy ;

Uses crt;

Var n, i: integer;

    Kt: boolean;

begin

   Kt:=true;

Write('Nhap n tu ban phim : ');

Readln(n);

   For i:= 2 to n - 1 do if( n mod i = 0) then 

   Kt :=false;

   If Kt then write(n,' la so nguyen to')

   Else

   Write(n, ' khong la so nguyen to');

   Readln

End.

program so_nguyen_to;

uses crt;

var i,n,dem:integer;

begin clrscr;

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

     dem:=0;

   for i:=1 to n do

     if n mod i=0 then dem:=dem+1;

   if (n<2) or (dem<>2) then writeln(n, 'khong phai la so nguyen to') else

   if dem=2 then writeln(n, 'la so nguyen to');

readln;

end.

Học tốt!