program PrintNameuses crtvaName: stringi: integerbegiName := 'Alice'clrscr;
for i := 1 to length(Name) dbegiwriteln('')writeln('')writeln('****')writeln('')writeln('')writelnend;
readlnend.
program PrintName
uses crt
va
Name: string
i: integer
begi
Name := 'Alice'
clrscr;
for i := 1 to length(Name) d
begi
writeln('')
writeln('')
writeln('****')
writeln('')
writeln('')
writeln
end;
readln
end.