Решить в паскале , блок схему и саму - f(x)=система 45x²+5, если x> 3,6 и 5x/(10x²+1) ,если x≤3,6

Var
  x,F:real;
 
begin
  Write('Введите значение аргумента х: ');
  Readln(x);
  if x > 3.6 then F := 45*x*x+5
  else F := 5*x/(10*x*x+1);
  Writeln('Значение функции равно ',F)
end.

Тестовое решение:

Введите значение аргумента х: 2
Значение функции равно 0.24390243902439

Введите значение аргумента х: 4
Значение функции равно 725