ОТВЕТЬ НА ВО В ТЕТРАДИ:
Во Группа элементов управления во вкладке Ссылки в MS Word, которые позволяют управлять списком литературы.
Во Наиболее рас форматы файлов, в которых сохраняют текстовые документы.
Во Цветной подчеркнутый текст или графический объект, являющийся ссылкой на документ, веб-страницу, рисунок, адрес электронной почты.
Во Гиперссылки между страницами в пределах одного и того же сервера.
Во Право человека на созданные им научные, литературные, музыкальные произведения и компьютерные программы.
Во Дословно приведенное в произведении одного автора высказывание другого автора.
Во Результат интеллектуальной деятельности определенного человека или группы людей, воплощенный в какой-либо материальной форме.
Во Умышленно совершаемое физическим лицом незаконное присвоение или использование чужого произведения.
Во Физическое лицо, творческим трудом которого создано про¬изведение.
Во Документы, которые сопровождают программное обеспе¬чение и описывают технические требования к игре.

Объяснение:

рлллолшчллы пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук тра3 я не знаю почему у тебя так же когда ты один ты постоянно пишешь звонишь хотя бы тоже поела и все больше ничего я не знаю почему у тебя р от меня надо было с 33333месяцев Тогда и 44беседовать

Если будете сдавать в тестирующей системе, то вместо string, лучше использовать массив char - работает быстрее.

var n,i,k,p,mx,mxj: integer;

   s: array[1..100000] of char;

begin

 readln(n);

 for i:=1 to n do read(s[i]);

 k:=0; p:=0;

 mx:=0; mxj:=0;

 for i:=1 to n do

 begin

   if s[i]='G' then k:=k+1

   else

   begin

     if p=1 then

     begin

       p:=0;

       if s[i-1]='G' then  

       if (k>mxj) then mxj:=k;

       k:=0;

     end

     else

     begin

       if k>0 then p:=1;

       if k>mx then mx:=k;

     end;

   end;  

 end;

 if mx>mxj then k:=mx+1

 else k:=mxj+1;

 if k=1 then k:=0;

 writeln(k);

end.