Просто функцию написать?)

function F(x: real): real;
begin
  { Нужное оставить, остальное - удалить }
  result := tan(x) / 2 + 2 * cos(x);
  result := tan(x / 2) + 2 * cos(x);
  result := tan(x / 2 + 2) * cos(x);
  result := tan(x / 2 + 2 * cos(x));
end;

var
  a: real;

begin
  readln(a);
  writeln(F(a));
end.

Var x,f: real;
begin
write ('введите x');
readln (x);
f:= sin(x/2)/cos(x/2)+2*cos(x);
writeln ('f=',f:6);
end.