Составить процедуру Stars, которая по данному N выводит на экран строку из N символов * - Pascal ABC

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

Составить процедуры Stars, которая по данному N выводит на экран строку из N символов «*». Используя эту процедуру, вывести на экран 3 строки из 10, 7 и 4 звездочек.

Program z1;{}
Var a :real;
procedure stars;
Var a:integer;
Begin 
For a:=1 to 10 do
write('*');
writeln;
end;
procedure stars;
Var a:integer;
Begin 
For a:=1 to 7 do
write('*');
writeln;
end;
Var a:integer;
Begin 
For a:=1 to 4 do
write('*');
writeln;
end.

Решение задачи: «Составить процедуру Stars, которая по данному N выводит на экран строку из N символов *»

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

Program z1;{}
procedure stars(n:integer);
Var
  a:integer;
Begin
  For a:=1 to n do
    write('*');
  writeln;
end;
begin
  stars(10);
  stars(7);
  stars(4);
  readln;
end.

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

В данном коде объявлена программа z1, которая содержит процедуру stars. В процедуре stars объявлена переменная a типа integer, которая используется в цикле. Цикл выполняется от 1 до n (количество символов, которые нужно вывести на экран), и в каждой итерации цикла на экран выводится символ *. После завершения цикла выводится символwriteln, который переносит строку на новую строку. В основной части программы вызываются процедурыstars` с аргументами 10, 7 и 4. После выполнения всех вызовов процедур программа завершается, и пользователь может перейти к следующему заданию.