program bb;
uses crt;
var a,b,c,d:real;
begin
write('Введите сторону А первого прямоугольника: ');
read(a);
write('Введите сторону В первого прямоугольника: ');
read(b);
write('Введите сторону С второго прямоугольника: ');
read(c);
d:=(6*a*b)/c;
write('Вторая сторона второго прямоугольника = ',d);
end.