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