В равнобедренном треугольнике основание в два раза меньше его стороны, периметр равен P, найти стороны.
Var k: real; begin readln(k); writeln('a = ', k / 5, '; b = c = ', k / 5 * 2); end.