Рассчитать будущее значение вклада 1 млн руб через 4 года при годовой учетной ставке 40% и поквартальном начислении

Program C2F;

Uses

    Crt;

Var i: integer;

       c,f: real;

Begin

    ClrScr; {очистить экран}

    Writeln('From Celsius to Fahrenheit:');

    Write('Type temperature (in celsius): '); read(c);

    f := 32 + 2*c * (1 - 1/10);

    Writeln('Temperature in fahrenheit: ', f:3:3);

    { :3:3 - общее количество знаков и знаков после запятой }

    Writeln(' Celsius to Fahrenheit from 0 to 100, step 5: ');

    i := 0;

    While i <= 100 Do

    Begin

        f := 32 + 2*i * (1 - 1/10);

        Writeln(' C = ',i:3,' | F = ', f:3:3);

        i := i + 5;

    End;

    Readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

End.

var {ключевое слово после которого идет объявление переменных}
 a, b, c, S, P{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных}
begin {начало выполнения программы}
  write('a = '); {вывод на экран текста и/или переменных (в данном случае выведится "а = ")}
  readln(a);{считывание переменной а}
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  S := a + b + c;{присваивание значение переменной S равной сумме a, b, c}
  P := a * b * c;{присваивание значение переменной P равной произведению a, b, c}
  writeln('Сумма равна ', S);{вывод на экрантеста " Сумма равна " и значения переменной S}
  writeln('Произведение равно ', P);{вывод на экрантеста " Произведение равно " и значения переменной P}
  readln;{Ожидание нажатия клавиши enter}
end.