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

uses crt;
var a,b,c,x,t1,t2,t3,p:real;
begin
clrscr;
writeln('Введите значения a,b,c,x');
readln( a,b,c,x);
t1:=x*x*x-2*pi*b;
t1:=sin(t1)/cos(t1);
if t1>0 then t1:=exp(ln(t1)/3)
else if t1<0 then t1:=-exp(ln(-t1)/3);
t2:=exp(a+2*x)/exp(ln(0.962)*pi*b);
t2:=ln(abs(t2))/ln(10);
t3:=16.3*c;
p:=t1+t2+t3;
write('P=',p:0:3);
readln
end.