Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p22;
- const
- filename = 'e:\file.txt';
- N = 500;
- var
- f: text;
- c: char;
- str: array [0..N] OF CHAR;
- s: string;
- i, len: integer;
- begin
- assign(f, filename);
- reset(f);
- i := 0;
- while not eoln(f) do
- read(f, s);
- writeln(s);
- close(f);
- readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement