Решить задачу в паскалеДано A вычислить c=A^3+ln (A), если c <= 0 вычислить и напечатать…

Program pr; uses crt; Var a,c,x,y,z,h: real; BeginWriteln ('Vvedite a'); readln (a); c: =power (a,3)+ln (a); x: =-3; h: =0,4; if c <= 0 thenWhile x <= 3 do Beginy: =sin (a*x); if y>0 thenWriteln ('x=',x,'___ y=',y: 5:3); x: =x+h; end else While x <= 3 do Beginz: =sin (x) /cos (x); Writeln ('x=',x,'| z=',z: 5:3); x: =x+h; end; readln; end.