program Szeregi;
{$N+}
uses crt;
var n:longint;
    suma:extended;
function a(n:real):real;
begin
  a:=1/n;
end;
begin
  clrscr;
  suma:=0;
  for n:=1 to 20 do
  begin
       suma:=suma+a(n);
       writeln('a(',n,') = ',a(n):17:17,'     S(',n,') = ',suma:17:17);
  end;
  readln;
end.