Составить процедуру, "рисующую" на экране горизонтальную линию из 80 символов "*" программа на паскаль abc

Ответ:

Процедура для рисования горизонтальной линии из 80 символов:

procedure DrawHorizontalLine;

var

i: integer;

begin

for i := 1 to 80 do

write('*');

end;

Примечание: символ `*` может быть заменен на любой другой символ, которые вы хотите использовать для рисования линии. Чтобы вызвать эту процедуру, достаточно написать `DrawHorizontalLine;` в вашей основной программе.