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