if send :
var n:longint;
begin
readln(n);
if n=5 then while true do begin end;
end.

we get TLE but if send all this file's
begin writeln(0); end.
begin writeln(1); writeln(1);end.
begin writeln(1); writeln(2);end.
begin writeln(1); writeln(3);end.
begin writeln(1); writeln(4);end.
begin writeln(1); writeln(5);end.
begin writeln(2); writeln(1);writeln(2);end.
begin writeln(2); writeln(2);writeln(3);end.
begin writeln(2); writeln(3);writeln(4);end.
begin writeln(2); writeln(4);writeln(5);end.
begin writeln(3); writeln(1);writeln(2);writeln(3);end.
begin writeln(3); writeln(2);writeln(3);writeln(4);end.
begin writeln(3); writeln(3);writeln(4);writeln(5);end.
begin writeln(4); writeln(1);writeln(2);writeln(3);writeln(4);end.
begin writeln(4); writeln(2);writeln(3);writeln(4);writeln(5);end.
begin writeln(5); writeln(1);writeln(2);writeln(3);writeln(4);writeln(5);end.

all this submit return WA1!!! how it posible????

Be attentive. You should print not indices but numbers themselves. For example, for input 5 1 1 1 1 1 you should output 5 1 1 1 1 1, not 5 1 2 3 4 5.

omg!!! thanks.
this task so old that i remember it from time when it 1st time was published, than so silly my mistake Ж)