program PerechiDePrime;
var n, a, b, p, i: integer;
begin
write('nr. de perechi? n= '); read(n);
writeln('Primele ',n,' perechi de numere impare prime:');
a:=3; b:=5;
while (n>0) do
begin
p:=1; i:=3;
while (p=1) and (i<=b div 2) do
begin
if b mod i=0 then p:=0;
i:=i+2;
end;
if p=1 then
begin write('(',a,',',b,') '); a:=b; n:=n-1; end ;
b:=b+2;
end;
end.