Jumlah Deret Perulangan

Sedikit contoh program perulangan yang menggunakan for to do untuk menghitung jumlah deret perulangan !

program Jumlah_Deret_Perulanagan;
uses crt;

Var

  i, x, jlm : integer;
  rata      : real;

begin
clscr;
  write('Masukkan Nilai Perulangan : ');

  readln(x);

  writeln('==============================');

  writeln;

  jlm:=0;

  for i:=1 to x do

  begin

    jlm:= jlm + i;

    end;
  rata := jlm/x;
  writeln('Jumlah Deret Perulangan : ',jlm);
  writeln('Rata - Rata Jumlah      : ',rata:0:2);
  readln;

end.                           

ini dia hasil outputnya !!!