РЕШИТЕ В ПАСКАЛЕ Написать по действиям решения примера: 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.