Вывести пять строк разной длины из разных цифр - Pascal ABC

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

Составьте процедуру, выводящую строку из n одинаковых цифр. Длина строки и цифра, которая выводится, являются параметрами процедуры. Вывести пять строк разной длины из разных цифр. Процедуру оформить несколькими способами. P.S. Помогите пожалуйста с заданием)Заранее спасибо

Решение задачи: «Вывести пять строк разной длины из разных цифр»

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

procedure p1(c:byte;n:byte);
var i:byte;
begin
for i:=1 to n do
if i<n then write(c)else writeln(c);
end;
begin
p1(3,10);
p1(5,15);
p1(0,8);
p1(9,12);
p1(7,20)
end.

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

В данном коде представлен процедурный код на языке Pascal ABC. Процедура p1 принимает два аргумента типа byte: c (цифра) и n (количество цифр). Внутри процедуры используется цикл for, который выполняется от 1 до n с шагом 1. Внутри цикла проверяется условие if i < n, где i - это текущая итерация цикла. Если условие истинно, то в поток вывода записывается цифра c. Если условие ложно, то в поток вывода записывается символ новой строки writeln(c). Пример использования процедуры p1:

p1(3,10) выведет 3 цифры подряд.
p1(5,15) выведет 5 цифр подряд.
p1(0,8) выведет 0 цифр подряд.
p1(9,12) выведет 9 цифр подряд.
p1(7,20) выведет 7 цифр подряд. Обратите внимание, что данный код не использует вложенные списки.