uses CRT;
var
a,b,c,x: integer;
y: real;
Begin
Clrscr;
Write('a,b,c,x через пробел:');
Read(a,b,c,x);
y:=SQR((a+b+c)/x);
Write(y:2:2);
readln;
readln
end.
uses CRT;
var
a,b,c,x: integer;
y: real;
Begin
Clrscr;
Write('a,b,c,x через пробел:');
Read(a,b,c,x);
y:=SQR((a+b+c)/x);
Write(y:2:2);
readln;
readln
end.