{* Задача 2 *}

Unit ZADACH2;
Interface
Implementation
Begin
 writeln('В зависимости от любого введенного символа английского алфавита, например – F, выведите: ABCDEF BCDEF CDEF DEF EF F .
Если ввести символ C, тогда выведется: ABC BC C ');
End.

Program zadach2;

Uses zadach2.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  k : char;
  s : char;
  j : char;
  l : char;
Begin
  clrscr; {* Очистка экрана *}
  write('введите символ английского алфавита - ');
  readln(k);
  k := upcase(k);
  For s := 'A' To k Do {* Цикл для s => ['A' .. k] *}
  Begin
    For l := 'A' To s Do {* Переменная l увеличивается с 'A' до s *}
      write(' ');
    For j := s To k Do {* Цикл для j => [s .. k] *}
      write(j);
    writeln; {* Пустая строка *}
  End;
  
End.