Длины сторон первого прямоугольника А и В, его площадь в 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.