var output :text; i, n, number, rating :integer; name :string; begin readln(n); assign(output,'output.txt'); rewrite(output); number:= 0; for i:= 1 to n do begin inc(number); readln(name); readln(rating); write(output,number,' ',name,' ',rating); writeln(output); end; close(output); end.