Яку суму треба покласти в банк,що виплачує щоквартально 19% річних,щоб через півроку отримати 15000? Це повинно бути в Excel, які формули використовувати?

#include <iostream>
#include <iomanip
#include <cmath>
using namespace std;

double St(double x1, double y1, double x2, double y2)
{
return sqrt((y2-y1)*(y2-y1)+(x2-x1)*(x2-x1));
}

double Per(double a, double b, double c)
{
return a+b+c;
}

double S(double a, double b, double c)
{
double p2 = Per(a,b,c)/2;
return sqrt(p2*(p2-a)*(p2-b)*(p2-c));
}

int main()
{
    double x1, y1, x2, y2, x3, y3;
    double a, b, c, p, s;
    cin >> x1 >> y1;
    cin >> x2 >> y2;
    cin >> x3 >> y3;
    a = St(x1,y1,x2,y2);
    b = St(x1,y1,x3,y3);
    c = St(x2,y2,x3,y3);
    p = Per(a,b,c);
    s = S(a,b,c);
    cout.setf(std::ios::fixed);
    cout.precision(6);
    cout << "p = " << p << "\n";
    cout << "s = " << s << "\n";
    system("Pause");
    return 0;
}

Пример:
1 1
4 1
1 5
p = 12.000000
s = 6.000000

Uses crt;
var i,j,k,n,max:integer; a:array[1..100] of integer;
procedure rmassr;
begin
    for i:=1 to n do
    a[i]:=random(10);
end;
procedure rmassy;
begin
    for i:=1 to n do
    readln(a[i]);
end;
procedure maxe;
begin
max:=a[1];
    for i:=2 to n do begin
        if a[i] > max then max:=a[i];
    end;
    writeln('max element = ', max);
end;
procedure wmass;
begin
    for i:=1 to n do
    write(a[i],' ');
    writeln;
end;
begin
clrscr;
randomize;
write('Длина массива'); readln(n);
write('1-random; 2- в ручную '); readln(k);
if k=1 then rmassr()
else rmassy();
wmass();
maxe();
readln
end.