program z3; var f: text; s: string; i, k, m, n: integer; a: array [1..10] of integer; begin Write(' File In ... ? '); Readln(s); Assign(F,s); reset(f); while not EOF(f) do begin read(f,n); write(n,' '); end; close(f); writeln; a[i]:=n; for i:=1 to 10 do begin write(a[i],' '); end; writeln; writeln('summa chis: ',i); writeln('sred arif: ',k); reset(f); readln; end.