Найдите 20 первых естественных чисел,больше 500 и кратные 13 либо 17.

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (k, n) := (500, 0);

 repeat

   if (k mod 13 = 0) or (k mod 17 = 0) then

   begin

     k.Print;

     n += 1

   end;

   k += 1

 until n = 20

end.