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

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