Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д. - Free Pascal

23. Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д.

Листинг программы

uses StrUtils;
var i : integer;
// ...
  for i := 1 to 5 do
    writeln(DupeString(chr(ord('A') + i - 1), 6 - i));

Объяснение кода листинга программы

В этом коде используется заголовочный файл StrUtils, который содержит набор функций для работы со строками.
Объявлена переменная i типа integer, которая используется в цикле.
В цикле for происходит запись в файл от 1 до 5 раз.
Функция DupeString используется для создания строки, которая состоит из указанного количества повторяющихся символов.
В качестве символа используется значение, полученное с помощью функции ord, которая возвращает числовое представление символа в кодировке Windows.
Код в цикле выводит в файл строки, состоящие из 6 символов 'A', 5 символов 'B', 4 символа 'C', 3 символа 'D' и 2 символа 'E'.