Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * ".

[Rufer]

Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * ". Срочноо) Напишите всю программу .Пожалуйста.

[Serge_Bliznykov]

неужели новый учебный год сразу с контрольной начался?!

какой Паскаль? Куда выводить (в консоль)?

Может быть так устроит?

procedure WriteLineOfAsterix(n : integer);
var i : integer;
begin
  for i:=1 to n do WriteLn('*');
end;

[Rufer]

нужна полностью программа

[Serge_Bliznykov]

Сообщение от Rufer

нужна полностью программа

других комментариев и ответов на поставленные вопросы, как я понимаю, не будет?..


ладно. вот программа целиком:

Program izForum;

procedure WriteLineOfAsterix(n : integer);
var i : integer;
begin
  for i:=1 to n do WriteLn('*');
end;

begin
  WriteLineOfAsterix(10)
end.