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