Вычислить значение функции:    x^2+5, при x>3
                                                  x-8, при x<=3 

Программа на ПаскалеProgram BiFi;Var x:real;Beginreadln(x);if x>3 then writeln(x*x+5);else writeln(x-8);readln;end.