№4 тема 5 пункт 2

program t5p2n4;

var n,max,k: integer;

begin

n:=500;

k:=0;

repeat

n:=n+1;

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

begin

max:=n;

k:=k+1;

writeln (max);

end;

until k=20;

readln