Написать процедуру, которая выводит на экран строку, состоящую из звездочек

procedure StarLine (ltn: integer);
var
i: integer;
begin
for i:=1 to len do
write (‘*’);
end.