Составить программу для вычисления значения функции по формуле у=х^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.