Вернуть строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз - PascalABC.NET

Формулировка задачи:

Разработать функцию MakeStr(ch1,ch2:char; N:integer):string, возвращающую строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз. Вводятся пары символов. Используя разработанную функцию, сгенерировать строки из повторений данных символов, причем первая пара должна повторяться 1 раз, вторая пара 2 раза, пара номер i должна повторяться i раз.

Решение задачи: «Вернуть строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз»

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

Function MakeStr(ch1,ch2:char; N:integer):string;
Begin
  If N>0 then MakeStr:=ch1+ch2+MakeCtr(N-1) else MakeStr:='';
end;

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

В данном коде реализована функция MakeStr, которая принимает три аргумента: ch1, ch2 и N. Переменные ch1 и ch2 являются символами, а переменная N является целым числом. Если значение N больше 0, то функция возвращает строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз. В противном случае, если N равно 0 или меньше, функция возвращает пустую строку. Внутри функции используется функция MakeCtr, которая принимает аргумент N и возвращает строку, в которой символы ch1 и ch2 чередуются. Если N равно 0, то функция возвращает пустую строку. Список вызовов функций и их аргументов:

MakeStr(ch1,ch2,N) - Вызов функции MakeStr с аргументами ch1, ch2 и N.
MakeCtr(N-1) - Вызов функции MakeCtr с аргументом N-1.