mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 12:50:30 +02:00
30 lines
331 B
ObjectPascal
30 lines
331 B
ObjectPascal
program docat;
|
|
|
|
Procedure ReadAndWrite(var O : Text);
|
|
|
|
var
|
|
S : AnsiString;
|
|
|
|
begin
|
|
While not EOF(O) do
|
|
begin
|
|
Readln(O,S);
|
|
Writeln(S);
|
|
end;
|
|
end;
|
|
|
|
var
|
|
F : Text;
|
|
|
|
begin
|
|
if ParamStr(1)<>'' then
|
|
begin
|
|
Assign(F,ParamStr(1));
|
|
Reset(F);
|
|
ReadAndWrite(F);
|
|
end
|
|
else
|
|
ReadAndWrite(INput);
|
|
end.
|
|
|