Вывести на экран все числа из промежутка от 1 до n, которые делятся на 2, 3 и 5.

var n,i:integer;beginreadln(n);for i:=1 to n doif (i mod 2=0) or (i mod 3=0) or (i mod 5=0) then write(i,' ');end.