Очень Дано натуральное число N. Вычислить значение суммы. Программа на С!

#include <stdio.h>

int main()

{

   int a, r = 0;

   scanf("%d", &a);

   for (int i=1; i<=a; i++){

       r += 1/i;

   }

   printf("%d", r);

   return 0;

}

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

бухгалтерия, документооборот.