Готовая программа

program calc;
uses
  math;

var
  x,a,d,F, numerator, denominator, e_expression: real;

begin
writeln ('Введите x');
readln (x);
writeln ('Введите a');
readln (a);
writeln ('Введите d');
readln (d);

if (cos(2*x) = 0) (* неочеведный трюк, использующий тот факт что tan()=sin()/cos() *)
then
  begin
    writeln('Тангенс 2*x не определён при x=', x:5:2);
    readln(F);
    halt();
  end;

numerator:=sqrt(abs(0.25-power(x,3))) + 4.25*sqr(a);
denominator:=sqr(6-x)+1;
e_expression:=exp(abs(4*x-d)) * (tan(2*x));

F:=numerator/denominator-e_expression;

writeln('F=',F:5:2 );
readln(F);
end.