Pascal/Turbo Pascal - como hacel programa en pascal

como hacel un programa que pida un numero,si el numero es negativo elevarlo al cuvo ,si es positivo y es mayor de 70 multiplicado por 3 y sacarle el seno, si es negativo y es un numero par sacarle la secante.

readln(numero);
If numero<0 then
begin (* negativo *)
if numero ord 2 <> 0 then
numero=numero*numero*numero
else numero = 1 / cos(numero);
end; (* negativo *)
else
begin
if numero<> 0 then
begin
if numero>70 then numero=sin(numero*3)
end;
end;

Segurament haya fallos, pero basicamente es eso

Readln(Num);
If Num<0 then
If (Num div 2)=0 then
res:=1/cos(Num)
else
res:=Num*Num*Num;
else
If Num>70 then
res:=sin(Num);

Espero qu te sirva.