As pirma pasidariau taip program varzos;
var ats : real;
//--------------Duomenu skaitymo ir skaiciavimo procedura-----------------------
procedure duviename(var ats : real);
var F : text;
i, j : integer;
n, nn : integer;
varzusuma, varza : real;
begin
varzusuma := 0;
Assign(F, 'duom.txt');
Reset(F);
ReadLn(F, n);
for i := 1 to n do begin
Read(F, nn);
for j := 1 to nn do begin
Read(F, varza);
varzusuma := varzusuma + 1 / varza; //Paskaiciuoju vienos eilutes varza
end;
ats := ats + 1 / varzusuma; //Ir pridedu ja prie bendros
varzusuma := 0; //Tada nunulinu, nau