Ответ Автор - BobbyFresnel var x, y, z, a, c: real;begin Read(x, y, z, a); c := Sqr((x + y - z) / (2 * a)); Write(c)end.