7 lines
100 B
ObjectPascal
7 lines
100 B
ObjectPascal
|
begin
|
||
|
|
var f := OpenRead('a.txt');
|
||
|
|
while not f.Eof do
|
||
|
|
Println(f.ReadString);
|
||
|
|
f.Close;
|
||
|
|
end.
|