{* Задача 1 *}

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

Program zadach1;

Uses zadach1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  i : integer;
  j : integer;
  k : char;
  s : char;
Begin
  clrscr; {* Очищаем экран *}
  writeln('строка - ');
  i := 1;
  For k := 'Z' Downto 'A' Do
  Begin
    For j := 1 To i Do {* Переменная j увеличивается с 1 до i *}
      write(k);
    i := i + 1;
  End;
  
End.