6 lines
172 B
Text
6 lines
172 B
Text
|
procedure main()
|
||
|
|
in := open(f := "input.txt","r") | stop("Unable to open ",f)
|
||
|
|
out := open(f := "output.txt","w") | stop("Unable to open ",f)
|
||
|
|
while write(out,read(in))
|
||
|
|
end
|