program Navzdy; var N, J : integer; NTINA, { NTINA = 1/N } SUM : real; { soucet N exemplaru NTINA } begin N:=1; SUM:=1; while SUM=1 do begin N:=N+1; NTINA:=1/N; J:=0; SUM:=0; repeat J:=J+1; SUM:=SUM+NTINA; until J=N; end; writeln(N); end.