5 lines
172 B
Text
5 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
|