В банк на 3% вклад положили S тенге. Какой станет сумма вклада через N нет?

алфавит из 33 букв это:

аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

число-общее

столица росси - единичное

учебник - общее

житель москвы - общее

столица - общее

самая высокая гора - единичное

пушкин - единичное

сказочный персонаж - общее

баба яга- единичное

не наю че за гамбас

пишу на паскале

var a: array[1..100] of integer;

i,n,k5,k4,k2: integer;

s: real;

begin

  read(n);

  for i : = 1 to n do begin

      writeln(' оценку учиника ',i);

      readln(a[i]);

      s: =s+a[i];

      if a[i]=5 then k5: =k5+1;

      if a[i]=4 then k4: =k4+1;

      if a[i]=2 then k2: =k2+1;

  end;

  writeln(s/n,k5,k4,k2);

end.