Решите в паскале написать по действиям решения примера: y=sqrt (5x-4/7*x^2) + x^2/2

Var x, y: real;
begin
  readln(x); // просим x с клавиатуры
  y := sqrt(5*x-(4/7)*sqr(x)) + sqr(x)/2; // вычисляем y
  writeln(y:0:5); // выводим y c точностью 5 знаков
end.