Ответ: Var I : Integer;
Begin
  For I := 100 to 999 do
  Begin
    If I mod 47 = 43 then WriteLn(I);
  End;
End.