Подпрограмма функции

[Mystery08]

Помогите пожалуйста!!!

[Mystery08]

Задание забыла. Вычислить с использованием подпрограммы функции на языке турбо паскаль.

[p51x]

Чем помочь? Что не получается?

[Mystery08]

Код программы не знаю как написать(((В школе информатики как таковое не было, а в институте неожиданно влипили информатику(((
вот какой бред я пишу в программе

[BDA]

Лучше выкладывать не картинкой, а текстом программы.

var
  x, y, f1, f2, f3: real;

function f(x: real): real;
begin
  f := sin(x) + cos(x);
end;

begin
  readln(x);
  f1 := f(x);
  f2 := f(1 / x);
  f3 := x * x + 5;
  y := sqr(f2) * (sin(f1 / f3) + 1 / cos(f3 / f1)) / sqrt(f1 * f1 + 1); 
  writeln(y:0:4);
  readln;
end.

Писал без проверки.
И в самом коде нет проверок на типичные случаи, например, деление на 0.

[Mystery08]

Хорошо. Учту)) Спасибо огромное-преогромное!!!))

[Mystery08]

Сделала проверку в маткаде - ответы сошлись!)) не устану вас благодарить)) спасибо))