Придумайте задачи , в которых использовались бы циклы For, While, Repeat.

var x:integer;

begin

for x:=15 to 90 do if  x mod 15 = 0 then write(x,' ');

end.