+Nhập 1 số nguyên tố và 1 số nguyên tố.

uses crt;

var n:integer;

begin

clrscr;

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

end.

+Kiểm tra 1 số có phải là số nguyên tố hay không:

uses crt;

var n:integer;

function nt(var n:integer):boolean;

var i:integer;

ok:boolean;

begin

ok:=true;

for i:=2 to n-1 do

if n mod i=0 then ok:=ok and false;

if n<2 then nt:=false else nt:=ok;

end;

begin

clrscr;

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

if nt(n) then write(n,' la so nguyen to ') else write(n,' khong phai la so nguyen to ');

readln

end.

uses crt;
var a,b: integer;
function nt(a: integer): integer;
var i,d: integer;
begin
    d:=0;
    for i:=1 to a do if a mod i = 0 then d:=d+1;
    exit(d);
end;
begin
clrscr;
    write('Nhap 1 so nguyen to: '); readln(a);
    while nt(a)<>2 do begin
        write('Nhap lai so nguyen to: ');
        readln(a);
    end;
    write('Nhap 1 so khong phai so nguyen to: '); readln(b);
    while nt(b)=2 do begin
        write('Nhap lai so khong phai so nguyen to: ');
        readln(b);
    end;
    readln
end.