RosettaCodeData/Task/Input-loop/PascalABC.NET/input-loop.pas

7 lines
100 B
ObjectPascal

begin
var f := OpenRead('a.txt');
while not f.Eof do
Println(f.ReadString);
f.Close;
end.