Объяснение:
var
i: integer;
name: string;
begin
writeln('Введите своё имя');
readln(name);
for i := 0 to 16 do
writeln(name);
end;
end.
