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

Var a, b, c, d:real;

begin

writeln ('Введите длины сторон первого прямоугольника') ;

read (a, b) ;

writeln ('Введите длину одной стороны второго прямоугольника') ;

read (c) ;

d: = (6*a*b) / c; / / Из формулы s2/s1=6; c*d/a*b=6

writeln ('Длин другой стороны второго прямоугольника = ', d)

end.