Напишите фрагмент программы вычисляющей значение переменной y по следующим формулам:

При х положительных:

y=5x^2-4/7x+2

При х отрицательных:

y=5x^2-2 х+1/3 х-2

Var x: real;

{ процедура функция }

function y (x: real) : real;

begin

if x>0 then Result:=5*x*x - (4/7) * x+2;

if x<0 then Result:=5*x*x-2*x + (1/3) * x-2;

end;

{ основная программа }

begin

write ('Задайте значение x ') ;

readln (x) ;

if x=0 then writeln ('при х = 0 функция не определена')

else writeln ('Значение функции y = ', y (x) : 12:5) ;

end.