Впаскале. выведите на печать сумму n членов прогрессии с заданным знаменателем прогрессии q и начальным значением a .

Program massiv; var a: array [1..100] of integer; n,i,f,d,s: integer; begin writeln('введите первый член прогрессии: '); readln(f); writeln('введите знаменатель прогрессии: '); readln(d); writeln('введите число членов прогрессии: '); readln(n); a[1]: =f; s: =a[1]; write(a[1],' '); for i: =2 to n do begin a[i]: =a[i-1]*d; write(a[i],' '); end; writeln; writeln(s); end.

{вот правильное решение я там забыл то чтобы подсчитывать число букв a} var                          s: string;                 i, id, len, max, count,q: byte;   begin       q: =0;         readln(s);               len : = length(s);             max : = 0;             id : = 0;           count : = 0;             for i: =1 to len do                         if s[i] < > ' ' then                                                   count : = count + 1                                 else begin                                             if count > max then begin                                                                     max : = count;                                                                       id : = i - count;                                     end;                                     count : = 0                       end;                 if count > max then begin                 max : = count;                                 id : = i - count;                 end;                                                               for i: =id to id+max do                       if s[i] = 'a' then   begin     q: =q+1;                     s[i] : = 'b';               writeln(s,' '  ,   q); end; end.