Сами значения вычислить понятно как. Пусть будет шаг h:=0.1
var a, b, h, x, y: real
BEGIN
a := -10; b := 10; h := 0.1;
x := a;
while (x <= b) do
begin
y:=1/(x*x*x);
Draw(x, y); // Это подпрограмма рисования точки с координатами (x, y)
x:= x+h;
end;
END.
А вот как в паскале рисовать на экране, я не знаю.
Подпрограмму Draw я оставляю ненаписанной.