Гражданин открыл счёт в банке, вложив 1000 рублей. через каждый месяц размер вклада увеличивается на 1,2 процента от имеющейся суммы. определить сумму вклада через 1,2...12 месяцев. Кроме того, рассчитайте прирост суммы вклада за каждый месяц года

Program triangle;
label undf;
var side, h, S, Ro, Rv: real;
begin
undf: writeln('Введите сторону треугольника:');
readln( side );

h := sqrt( sqr( side ) - ( sqr( side ) / 4) ); // расчет высоты
S := ( ( 1 * side) / 2 ) * h; // расчет площади
Rv := ( side / 2 ) * sqrt( ( 2 * side - side ) / ( 2 * side + side ) ); // расчет вписанной окружности
Ro := ( sqr( side ) / sqrt( sqr( 2 * side) - sqr( side ) ) ); // расчет описанной окружности

// вывод данных
writeln('Высота: ', h);
writeln('Площадь: ', S);
writeln('Радиус вписанной окружности: ', Rv);
writeln('Радиус описанной окружности: ', Ro);

end.

Прежде всего - формулы. Пусть а - длина стороны, тогда


var
  a, r, rr, h, s: real;

begin
  Write('Введите длину стороны треугольника: ');Readln(a);
  r := sqrt(3) * a / 6;
  rr := 2 * r;
  h := 3 * r;
  s := a * h / 2;
  Writeln('Радиус вписанной окружности ', r);
  Writeln('Радиус описанной окружности ', rr);
  Writeln('Высота треугольника ', h);
  Writeln('Площадь треугольника ', s);
end.

Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219