Даны три числа. Составьте программу,которая вычисляет кубическую степень отрицательных среди этих чисел

Другим тоже помогите плиииз

То есть у меня есть ещё одна другая задача

vara:array [1..3] of integer;i:integer;beginfor i:=1 to 3 do read(a[i]);for i:=1 to 3 do if a[i]<0 then write(a[i]*a[i]*a[i],' ');end.