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

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.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(100,-20,20); a.Println;
  WritelnFormat('Положительных {0}, отрицательных {1}',
    a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.

Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54

1.  123 в четверичной: 1*4^2+2*4+3= 16+4+3=23

2. 322 в шестиричной: 3*6^2+2*6^1+2= 3*36+12+2=122

3.  99 в шестнадцатеричной: 9*16+9= 144+9=153

4.  FAC в шестнадцатеричной: 15*16^2+10*16+12= 15*256+160+12=3840+172=4012

5.  111 в двоичной: 4+2+1=7

6.  1001101 в двоичной: 1+4+8+64=77

7.115 в восьмеричной: 64+8+5=77

8. 4С в шестнадцатеричной: 4*16+13=77

9.  34 в семиричной: 3*7+4=25

10.  710 в восьмеричной: 7*64+8=448+8=456

Объяснение:

Вот тебе небольшие лайфхаки для перевода из двоичной в восьмеричную/шестнадцатеричную:

7.  1001101 в восьмеричной: разбиваем на триады начиная справа:

101 = 5 001=1 1=>001=1 получается: 115

8.  1001101 в шестнадцатеричной: также разбиваем, но уже на четыреады:

1101=13=>C 100=4 получается: 4С