Составить алгоритм и программу вывода на экран кубов всех целых чисел от -5 до 12.Помогите кто нибудь.
Var i,q:integer; begin for i:=-5 to 12 do begin q:=i*i*i; writeln(q); end end.