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.