program kiem_tra;

uses crt;

var n,i: integer;

ok: boolean;

begin

clrscr;

ok:=true;

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

for i:=2 to n-1 do if n mod i=0 then 

ok:=false;

if ok then writeln('n la so nguyen to')

else 

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

readln

end.

Program SNT;

Uses crt;

Var n , i :Integer;                                       // Khai bao bien su dung

BEGIN

Write(‘Nhap vao mot so:’); // Thong bao nhap lieu Readln(n); // Nhap gtri N, (voi &N la lay d/c bien N) i := round( sqrt(n) ); If( n mod i <> 0) then // Xuat cau tra loi cuoi cung Writeln(‘ N la so nguyen to’) Else Writeln(‘ N khong la so nguyen to’); Readln; END.