Составьте программу, которая выводит на экран первые n чисел, которые делятся на все числа от 1 до 10

//прога на Pascal`e
var
i: byte;
begin
for i:=1 to 10 do
writeln (i:2, ') ', i*2520);
end.