Пожалу та не как в комп а в тетради написать надо пж очеееееенььььь

Program z1;  Var i:integer; s:real;Begin  s:=1;  i:=2;  While i<=10 do  begin    s:=s+1/i;    i:=i+1;  end;  write(s);End.