program Zadanie; var i, b, c: integer; begin readln(b); writeln('Первые десять чисел, которые делятся на ', b, ': '); c := b*10; for i := 1 to c do if i mod 4 = 0 then writeln(i); end.