Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей

[NoUserName]

Пожалуйста помогите с решением задачи по Паскалю. Я в єтой программе просто Чайник (с большой буквы "Ч"), понимаю что это для вас элементарно но для таких лузеров как я это небольшая проблемка.

Вот задача:
Вычислить значение выражения и вывести его на экран монитора, при этом
необходимо предусмотреть возможность вычисления значения выражения несколькими
способами или в зависимости от различных параметров.
Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля и произведение P квадратов трех чисел a, b и c, если их сумма равна нулю.

заранее спс всем кто может и хочет помочь чайнику

[Манжосов Денис :)]

program help;
var
  a: array [0..2] of integer;
  R: integer;
  i: byte;
begin
  for i:=0 to High(a) do
   ReadLn(a[i]);
 for i:=0 to High(a) do
  a[i] := a[i]*a[i]*a[i];
 P := a[1]*a[2]*a[3];
end.

Часть программы сделана. Вот это объясни мне попобдробней.

если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля и произведение P квадратов трех чисел a, b и c, если их сумма равна нулю.

Сам-то понял что написал?

[maladoy]

program h;
uses crt;
var a,b,c,pr,p:integer;
begin 
readln(a);
readln(b);
readln(c);
pr:=a+b+c;
if pr>0 then
p:=abs(a*b*c);
if pr<0 then
p:=sqr(a)*a*b*c*sqr(c)*sqr(b);
if pr = 0 then
p:=sqr(a)*sqr(c)*sqr(b);
writeln(p);
readln;
end.

[NoUserName]

Спасибки вам ребята за ответ ) Вы меня очень выручили!!!