{* Задача 18 *}

Unit ZADACH18;
Interface
Implementation
Begin
 writeln('Составить программу поиска трёхзначных чисел, которые при делении на 47 дают в остатке 43, а при делении на 43 дают в остатке 47');
End.

Program zadach18;

Uses zadach18.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  i : longint;
Begin
  For i := 100 To 999 Do {* Переменная i увеличивается с 100 до 999 *}
    If ((i Mod 47) = 43) And ((i Mod 43) = 47) Then
      write(i, ' ');
  readln; {* Приостановка программы. Ожидание Enter *}
End.