begin
var (k, n) := (500, 0);
repeat
if (k mod 13 = 0) or (k mod 17 = 0) then
k.Print;
n += 1
end;
k += 1
until n = 20
end.
