Составить программу для вычисления функции. Паскаль

var x, F:double;

begin

writeln('введите х');

readln (x);

if (x>=3.6) then F:=45*sqr(x)+ 5

else F:=5*x / (10*sqr(x) + 1);

writeln(F);

end.

var x:real;

begin

write('Введите x: ');

readln(x);

if (x>3.6) then writeln ('y = ',45*x*x+5:0:3)

else writeln ('y = ',(5*x)/(10*x*x+1):0:3);

end.