Пожалуйста посчитайте! Написать блок схему и сделать работу в программе pascal abc. Вариант 3.

Блок-схему сам(а) намалюешь =)
var
  d,x:real;
begin
readln(x);
d:= power(x,4)+(power(x,2)/Cos(x*2))+abs(tan(5*x-2));
writeln(d:10:5);
readln
end.