Вывести на экран кубы чисел от 10 до 15
Var a:real; begin for var i:=10 to 15 do Writeln(i +': ' + i*i*i);end.