Создать программу,которая выводит на экран ваше имя, каждая буква изображена звездочками.
Код программы ввести в PascaABС.

Предыдущий
вопрос Следующий
вопрос

program PrintName;
uses crt;
var
Name: string;
i: integer;
begin
Name := 'Alice';
clrscr;

for i := 1 to length(Name) do
begin
writeln('');
writeln('');
writeln('****');
writeln('');
writeln('');
writeln;
end;

readln;
end.