{* Числа, кратные 11 *}

Unit KRATNIE;
Interface
Implementation
Begin
 writeln('На заданном интервале от 12 до 100 необходимо определить числа кратные 11. Так же требуется найти произведение этих чисел. ');
End.

{Числа, кратные 11  На заданном интервале от 12 до 100 необходимо определить числа кратные 11. Так же требуется найти произведение этих чисел.}
Program kratnie;

Uses kratnie.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  i : integer;
  j : integer;
  s : longint;
Begin
  clrscr; {* Очищаем экран *}
  s := 1;
  writeln('Числа кратные 11 в интрвале от 12 до 100:');
  For i := 12 To 100 Do {* Увеличиваем i от 12 до 100 с шагом 1 *}
  Begin
    If i Mod 11 = 0 Then
    Begin
      writeln(i);
      s := s * i;
    End;
    
  End;
  writeln('Произведение этих чисел: ', s);
  write('Нажмите Enter');
  readln; {* Ждем нажатия Enter *}
End.