Написать программу, которая по заданным трем действительным числам возводит в куб те из них, значения которых неотрицательны, и в четвертую степень – отрицательные — Pascal(Паскаль)

program RESHENIE;
uses crt;
var
a, b, c, ak, bk, ck: real;
begin
clrscr;
writeln ('a,b,c');
readln (a,b,c);
if a<0 then
begin
a:=a*-1;
ak:=exp(ln(a)*4);
end
else
ak:=exp(ln(a)*3);
if b<0 then
begin
b:=b*-1;
bk:=exp(ln(b)*4);
end
else
bk:=exp(ln(b)*3);
if c<0 then
begin
c:=c*-1;
ck:=exp(ln(c)*4);
end
else
ck:=exp(ln(c)*3);
writeln (ak:6:3);
writeln (bk:6:3);
writeln (ck:6:3);
readln;
end.