Найдите 20 первых натуральных чисел,больше 500 и кратные 13 или 17. ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program Project1;
uses crt;
var
i, count: integer;
begin
count := 0;

for i := 501 to 1000 do
begin
if (i mod 13 = 0) or (i mod 17 = 0) then
begin
count := count + 1;
writeln(count, ' число: ', i);
end;

end;

readkey;
end.