PascalНайти 20 первых натуральных чисел, делящихся нацело на 13 либо на

На промежутке с левой границей 500 1-ое число, кратное 13, одинаково 507, а 1-ое число, кратное 17, одинаково 510. Числа, кратные 13, образуют последовательность 507, 520, 533, ..., а числа, кратные 17, образуют последовательность 510, 527, 544, ... Для решения задачи достаточно соединить эти последовательности в одну, упорядоченную по возрастанию и брать первых 20 её членов.

Как получить 507 и 510? 1-ое число m, не меньшее некого k и кратное n определяется по простому методу. Пусть p = k mod n - остаток от целочисленного дробленья k на n. Если p=0, то m=k, в неприятном случае m=k+n-p.
Проверим для k=500, n=13.
p = 500 mod 13 = 6. p

Program z;
var x,k:integer;
begin
x:=500;
k:=0;
while klt;20 do
beginif (x mod 13=0) or (x mod 17=0) then begin writeln(x); k:=k+1; end;
x:=x+1;
end;
end.