составить программу для вычисления значения функции по формуле у=х^2-5:3

var x,y:real;beginwriteln ('y=x^2-5/3');writeln ('Введите переменную x');readln (x);y:=x*x-5/3;writeln ('y =',x,'^2-5/3');writeln ('y = ',y);end.