Ответ:

Объяснение:

var

 i: integer;  

 name: string;

begin

 writeln('Введите своё имя');

 readln(name);

 for i := 0 to 16 do

 begin

   writeln(name);  

 end;

end.