Математические расчеты. Проблема в коде.

[Розочка]

Всем доброго времени суток!
Необходимо написать программу на Паскале,вот условие задачи:
http://s46.radikal.ru/i112/0909/80/f919bd901406.jpg
Попыталась сделать самостоятельно,но не уверена что правильно.
Почитала все эти экономические термины,были даны формулы,но такой как в условии задачи нет.
Просто по вычислениям с данной формулой,цифры не совсем реальные получаются Мне кажется, что ф-ла не правильная,возможно что-то упустили при написании условий задачи..
Я написала программу с формулой как в задаче(№1),и еще как более реально выглядят цифры при вычислении(№2),подкорректировав ф-лу. Помогите разобраться и исправить ошибки!
№1.

PHP код:

Program E;
var
   N,i: Integer;
   S1, S0, R: array [1..20] of Real;
   M: array [1..20] of Integer;

Begin
     Write('Введите количество финансовых рынков (от 1 до 20): ');
     Readln(N);
     For i:=1 to N do begin
         Write('Введите сумму на начало периода для ',i,' финансового рынка: ');
         ReadLn(S0[i]);
         Write('Введите годовую процентную ставку для ',i,' финансового рынка: ');
         ReadLn(R[i]);
         Write('Введите количество месяцев на которые осуществлены вложения для ',i,' финансового рынка: ');
         ReadLn(M[i]);
     end;
     For i:=1 to N do begin
         S1[i]:=S0[i]*(1+R[i]/M[i]);
         WriteLn('Сумма на конец периода для ',i,' финансового рынка: ',S1[i]:0:2);
     end;
     ReadLn;
End. 


№2.

PHP код:

Program E;
var
   N,i: Integer;
   S1, S0, R: array [1..20] of Real;
   M: array [1..20] of Integer;

Begin
     Write('Введите количество финансовых рынков (от 1 до 20): ');
     Readln(N);
     For i:=1 to N do begin
         Write('Введите сумму на начало периода для ',i,' финансового рынка: ');
         ReadLn(S0[i]);
         Write('Введите годовую процентную ставку для ',i,' финансового рынка: ');
         ReadLn(R[i]);
         Write('Введите количество месяцев на которые осуществлены вложения для ',i,' финансового рынка: ');
         ReadLn(M[i]);
     end;
     For i:=1 to N do begin
         S1[i]:=S0[i]*(1+(R[i]/100)/(M[i]/12));
         WriteLn('Сумма на конец периода для ',i,' финансового рынка: ',S1[i]:0:2);
     end;
     ReadLn;
End. 


И помогите составить блок-схему к задаче С этим у меня посложнее
За ранее спасибо!

[GenniY]

- Не нужно

M[i]/12

Просто М[i];
- Если судить с задания, то этого

R[i]/100

тоже делать не надо;
-

R[i]/M[i]

возьми в скобки.

[Розочка]

GenniY,спасибо! 2 вариант решения оказался верным. Действительно, ф-ла была не правильной.
Блок-схема по прежнему актуальна!