Вравнобедренном треугольнике основание в два раза меньше его стороны, периметр равен p, найти стороны.

Var
  k: real;

begin
  readln(k);
  writeln('a = ', k / 5, '; b = c = ', k / 5 * 2);
end.