Написать программу вычисляющую таблицу кубов чисел от -10 до 10

var a, b: integer;begin a:=-10; b:=10; if a < b then for a := a to b dowriteln (a * a * a);readln;end.