{* Задача 272 *}

Unit ZADACH272;
Interface
Implementation
Begin
 writeln('Найти все простые числа - близнецы (пример: 3 и 5, 5 и 7 и т.д.) в интервале от 3 до 100. ');
End.

Program zadacha_9;

Uses zadach272.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i  : integer;
  j  : integer;
  q  : integer;
  j1 : integer; {Переменная счётчик}
  k  : integer;
  k1 : integer;
Begin
  clrscr; {* Очищаем экран *}
  For i := 3 To 100 Do {проверяемые числа}
  Begin
    k := 0;
    For j := 1 To i Do {* Цикл для j => [1 .. i] *}
    Begin
      If (i Mod j) = 0 Then
      Begin
        k := k + 1;
      End;
      
    End;
    q := i + 2;
    k1 := 0;
    For j1 := 1 To q Do {* Переменная j1 увеличивается с 1 до q *}
    Begin
      If (q Mod j1) = 0 Then
      Begin
        k1 := k1 + 1;
      End;
      
    End;
    If (k = 2) And (k1 = 2) Then
    Begin
      writeln ('числа ', i, ' и ', i + 2, ' близнецы');
    End;
    
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.