Дано натуральноe n, посчитать сумму n и вывести результат на экран. s=1+1/2+1/3+1/4+1/5+1/6+……

program kokoko; uses crt; var i,n: integer; k: real; begini: =0; k: =0; writeln ('Введите число n'); read (n); while i <= n dobegin i: =i+1; // как счетчик и кол-во раз прибавленияk: =k+(1/i); end; writeln ('Ответ ',k: 2:2); // циферки после к значат что будет 2 знака после заend.