вопрос по паскалю- программирование, циклы
помогите)

6.3 const     n = 5; var   i,j : integer;   ch,zn : integer;   r : real;  begin  r := 0;    for i := 1 to n do   begin    ch := 0;    zn := 1;     for j := 1 to i do      begin       ch := ch + j;       zn := zn * j;      end;    //writeln (i,' ',ch,'/',zn);    r := r + ch/zn;        end;     writeln (r:3:2); end.