Помогите пожалуйста, записать нужно в паскале!F(x)=tg x/2+2cosx 

Просто функцию написать?)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.