Question

сделать 2 задание !!!!
программа паскаль

Answer 1

var

 x, y, z, a, c: real;

begin

 Read(x, y, z, a);

 c := Sqr((x + y - z) / (2 * a));

 Write(c)

end.