Из отдельных операторов составьте программу
Поиска трехзначных чисел, которые при делении на 47 дают в остатке 43, а при делении на 40 дают в остатке 7.

• Var i: integer;
• Begin
• For i:=100 to 9000 do
• if \(i mod 43=7\) or \(i mod 47=43\) then write \(i:5\)
• end.