vct nhập vào một số N và cho biết đó có phải là số nguyên tố hay không

program hello;

uses crt;

var i,n: integer

begin

     clrscr;

     writeln('nhap n'); readln(n);

     if n<= 1 then writeln('n ko la snt') else

     begin

          i:=2;

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

          if i = n then writeln('n,'la snt') 

          else writeln('n,'ko phai snt');

     end;

     readln;

end.

program ct;

uses crt;

var kt,n:integer;

begin clrscr;

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

   if n mod n=0 and n mod 1=0 then writeln(n,' la so nguyen to')

                                                        else writeln(n,' khong la so nguyen to');

readln;

end.

Học tốt!