Programma guscio

begin
assign(i,'D:/casella dati/input.txt');
reset(i);
assign(o,'D:/casella dati/output.txt');
reset(o);
rewrite(o);
while not eof (i) do
begin
read(i,s);
write(o,s);
end;
close(i);
close(o);
end.