Разработайте программу поиска 3-ехзначных чисел, которые при делении на 47 дают в остатке 43. Зафиксируйте свои действия в каждом этапе решения задачи. (использовать команды DIV, MOD)!!! (SUM и SUMM нельзя!)

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