program TriangleCalc;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  a, S, R_in, R_out: Real;
begin
  Writeln('Программа расчета равностороннего треугольника');
  Writeln('----------------------------------------------');
  
  Write('Введите сторону треугольника: ');
  Readln(a);
  
  if a <= 0 then
    Writeln('Ошибка: сторона должна быть положительным числом.')
  else
  begin
    // Площадь равностороннего треугольника: S = a^2 * sqrt(3) / 4
    S := a * a * sqrt(3) / 4;
    
    // Радиус вписанной окружности: r = a * sqrt(3) / 6
    R_in := a * sqrt(3) / 6;
    
    // Радиус описанной окружности: R = a * sqrt(3) / 3
    R_out := a * sqrt(3) / 3;
    
    Writeln('Результаты:');
    Writeln('Площадь треугольника: ', S:0:4);
    Writeln('Радиус вписанной окружности: ', R_in:0:4);
    Writeln('Радиус описанной окружности: ', R_out:0:4);
  end;
  
  Writeln('Нажмите Enter для выхода...');
  Readln;
end.