Program Task_13_14; uses crt;
Var f : Text;
s : String;
Begin
clrscr;
assign(f,'tt.txt');
reset(f) ;
While Not eof(f) Do Begin
ReadLn(f, s);
WriteLn(s);
End;
Close(f);
ReadLn;
End.