const fi='VD1.txt'; fo='VD2.txt'; var i,t:integer; f1,f2:text; a:array[1..9]of integer; begin assign(f1,fi); reset(f1); assign(f2,fo); rewrite(f2); t:=0; for i:=1 to 9 do begin read(f1,a[i]); t:=t+a[i]; end; writeln(f2,t); close(f1); close(f2); end.
const fi='VD1.txt'; fo='VD2.txt'; var i,t:integer; f1,f2:text; a:array[1..9]of integer; begin assign(f1,fi); reset(f1); assign(f2,fo); rewrite(f2); t:=0; for i:=1 to 9 do begin read(f1,a[i]); t:=t+a[i]; end; writeln(f2,t); close(f1); close(f2);
