6 lines
109 B
ObjectPascal
6 lines
109 B
ObjectPascal
begin
|
|
var f := OpenRead('a.txt',Encoding.UTF8);
|
|
while not f.Eof do
|
|
Print(f.ReadChar);
|
|
f.Close
|
|
end.
|