I readed MirTrudMay message, sended his solution and got AC(0.02 sec,
28K). Then I wrote my solution
  Program Task1059;
   Const First : String = 'X0*1+';
   Var I,N : Word;

   BEGIN
    ReadLn(N);
    For I := 1 To 5 Do
     WriteLn(First[I]);
    For I := 2 To N Do
     begin
      WriteLn('X');
      WriteLn('*');
      WriteLn(I);
      WriteLn('+');
     end;
   END.
 and got AC to, but 0.01 sec, 28K. Paradox???!!!