Найдите сумму всех трехзначных чисел, которые при деление на 47 дают в остатке 43. (Для нахождения остатка использовать функцию MOD)

Program n1;var i,sum: integer;beginsum:=0;for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;write(sum);end.