Задача:

Выяснить: есть ли среди чисел от 1 до 2n числа близнецы: простые числа разность между которыми равна 2
Простые числа - числа которые делятся только на 1 и само себя. Например 17

Решение:

program primer1;
uses CRT;
var i, n, x, y, z, l :integer;
begin
textcolor (4); n:=0;
writeln ('введите n'); readln (n);
l:=2*n;
for i:=n to 2*n do
begin
y:=0;
for z:=1 to 2*n do
begin
if (i mod z=0) then y:=y+1;
If ((i+2) mod z=0 ) then y:=y+1; end;
If (y<=4) and ((i+2)<=2*n) then writeln ('число 1: ', i, ' число 2: ', (i+2));
end; readkey; end.