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

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один