Найти все трехзначные числа, которые при делении на 47 дают в остатке 43 (программа Паскаль)

program ostatok;
uses crt;
var i, x: integer;
begin
for i:=100 to 999 do
if i mod 47=43 then writeln (i);
end.