program NameStars;
uses crt;
varname: string;i: integer;
beginclrscr;
name := 'Alice';
for i := 1 to Length(name) dobeginwriteln('*');end;
readln;end.
program NameStars;
uses crt;
var
name: string;
i: integer;
begin
clrscr;
name := 'Alice';
for i := 1 to Length(name) do
begin
writeln('*');
end;
readln;
end.