program CalculateY; var x, y: real; begin x := 2; {Пример значения для x} y := (5 * sqr(x) + 3.14) / (2 * x); writeln('y = ', y:0:3); end.