Длины сторон первого прямоугольника А и В, его площадь в 6 раз меньше площади второго прямоугольника. Найти длину стороны второго прямоугольника, если длина одной из его сторон равна С.

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.