Даны 3 действительных числа, возвести в куб те из них значения которые отрицательны. Написать программу (в паскале).

Program chisla;

var a, b, c: real;

begin

writeln ('Введите 1  число');

readln (a); 

writeln ('Введите 2 число');

readln (b); 

writeln ('Введите 3 число');

readln (c);

if a<0 then a:=a*a*a ;

 if b<0 then b:=b*b*b ;

 if c<0 then c:=c*c*c  ;

writeln (a);

writeln (b);

writeln (c);

end.

Это так, просто расписывая оО