{* Задача 3 *}

Unit ZADACH3;
Interface
Implementation
Begin
 writeln('Выведите в строку символы русского алфавита до введенного с клавиатуры символа так, чтобы каждый очередной символ выводился столько раз, каким по счету он выводится, например: АББВВВГГГГДДДДД… ');
End.

Program zadach3;

Uses zadach3.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  i : integer;
  j : integer;
  k : char;
  s : char;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln ('введите символ русского алфавита');
  readln(s);
  write('строка - ');
  i := 1;
  For k := 'А' To s Do {* Цикл для k => ['А' .. s] *}
  Begin
    For j := 1 To i Do {* Цикл для j => [1 .. i] *}
      write(k);
    i := i + 1;
  End;
  
End.