Program Menghitung_Deret; ( Struktur Data )

Program Menghitung_Deret;
uses crt;
var
n : integer;

procedure Isi_N(var n : integer);
{I.S.:user memasukan harga n}
{F.S.:menghasikan harga n}
begin
write('masukkan harga N : ');readln(n);
end;

procedure Deret_ke_N(n: integer);
{I.S.:harga n sudah terdefinisi}
{F.S.:menampilkan jumlah deret sebanyak n }
var
i,m : integer;
jumlah,s : real;
op : char;
begin
m:= 1;
jumlah:=0;
                 if(n=1)
                  then
                   s := -1
                  else
                  begin
                    s := -1;
                    write('s : ' ,s:0:0,' ');
                    for i := 2 to n do
                    begin
                     m:=m+i;
                      if(i mod 2 = 0)
                       then
                       s := s + (i/m)
                       else
                        s := s - (i/m);


                        if ( i mod 2 = 0)
                        then
                        op := '+'
                        else
                        op := '-';


                       jumlah := jumlah+s;

                    write(op,' ',i, '/',m,' ');
                    end;
                  end;
                 writeln(' ');
                 write('jumlah : ');
                 textcolor(red);write(jumlah:0:2);
end;

{program utama}
begin
Isi_N(n);
Deret_ke_N(n);
readln;
end.