Просто функцию написать?)
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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.