Var a,b,c:real; begin writeln('Введите длину 1 стороны 1 прямоугольника'); readln(a); writeln('Введите длину 2 стороны 1 прямоугольника'); readln(b); c:=((a*b)/6)/6; writeln('Длина 2 стороны 2 прямоугольника равна ',c); end.