Составить программу формирующую символьную строку состоящую из n звездочек

var n:integer;

st:string;

begin

readln(n);

while not (length (st)=n) do st+="*";

writeln(st);

end.