2. Viết chương trình nhập vào 1 số nguyên n, kiểm tra xem n có phải số nguyên tố hay không

Program nguyento;

Uses Crt;

Var n,d,k:longint;

Begin Clrscr;

write('n=');

Readln(n);

k:=0;

For d:=1 to n do

If n mod d = 0 then

k:=k+1;

If k=2 then

write ('n la so nguyen to');

Readln;

End.

program xt;

uses crt;

var i,n:integer;

begin

clrscr;

write('nhap vao so nguyen:=');readln(n);

if n<=1 then writeln('n khong phai so nguyen to') else

begin

i:=2;

while n mod i<>0 do i:=i+1;

if i=n then writeln('so nguyen to la:',n) else writeln('khong phai la so nguyen to:',n);

end;

readln

end.