Разработать алгоритм решения задач и программы для вычисления значения функции с использованием разветвляющей алгоритмической конструкции паскаль​

begin

 var x := ReadReal('Введите число:');

 var result: real := 0;

 if x > 3 then

   result := 1.2 * x ** 2 - 3 * x - 9

 else

   result := 12.1 / (2 * x ** 2 + 1);

 Print('ответ:', result);

end.