uses crt;

var

 s:string[15];

 i:integer;

begin

 textcolor(lightblue);

 write('Enter your name: '); readln(s);

 for i:=1 to 15 do

   writeln(i,': ',s);

 readln;

end.

Запускать через консоль. Shift + F9