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