Если каждый месяц ( точнее первого числа каждого месяца от марта до декабря(*первого , то есть декабрь не будет посчитан, так как чтобы получить проценты за декабрь нужно подождать до января(опять же первого) но мы получим данные за ноябрь)) получать проценты вплоть до декабря, то получится сумма ≈1 171,7руб.
Вот данные для каждого месяца по отдельности(месяц будет указан как цифра(из-за большого остатка , будет сокращение до копеек):
Март(3) - 1000руб.
01.4- 1020 руб(за март%)
01.5- 1040,4 руб
01.6- 1061.20 руб
01.7- 1082.43 руб
01.8- 1104,08 руб
01.9- 1126,16 руб
01.10- 1148,69 руб
01.11- 1171,66 руб
01.12- 1 195,09 руб(за Ноябрь%)
Удачи °ω⁻
var
a,b,c,P,p2,S,Ha,Hb,Hc:real;
begin
writeln('Введите значение стророны a');
readln(a);
writeln('Введите значение стророны b');
readln(b);
writeln('Введите значение стророны c');
readln(c);
P:=a+b+c;
p2:=P/2;
S:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
Ha:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/a;
Hb:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/b;
Hc:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/c;
writeln('Периметр треугольника P = '+P);
writeln('площадь треугольника S = '+S);
writeln('высота треугольника Ha = '+Ha);
writeln('высота треугольника Hb = '+Hb);
writeln('высота треугольника Hc = '+Hc);
end.