Напишите фрагмент программы вычисляющей значение переменной 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.