13 lines
162 B
ObjectPascal
13 lines
162 B
ObjectPascal
|
var
|
||
|
|
f: Text;
|
||
|
|
s: string;
|
||
|
|
begin
|
||
|
|
Assign(f,'13_Files1.pas');
|
||
|
|
Reset(f);
|
||
|
|
while not eof(f) do
|
||
|
|
begin
|
||
|
|
readln(f,s);
|
||
|
|
writeln(s);
|
||
|
|
end;
|
||
|
|
Close(f);
|
||
|
|
end.
|