Составить приложение ** языке Pascal. Вычислить ** ПК значения функции, заданной в...

Question

Составить приложение на языке Pascal.

Вычислить на ПК значения функции, заданной в таблице. На печать
вывести значения вводимых исходных данных и полученные результаты,
сопровождая их именами переменных. Значения аргумента взять из
указанного диапазона так, чтобы протестировать все ветви программы.

---

Answer 1

var a,x,b:real;

Begin

  read(a,x);

  if x>4 then b:=x*ln(x*x);

  if x<3 then b:=a*cos(x);</p>

  writeln(b);

End.