''contoh sederhana penjumlahan bilangan POLINOMIAL''

 program jumlahan;
uses crt;
var i, batas, jumlah: integer;
begin
clrscr;
writeln('menjumlahkan bilangan : 1+2+3+..+n');
writeln;
write('akan menjumlah sampai bilangan berapa : ');
readln(batas);
              jumlah:=0;
              i     :=1;
              repeat
                jumlah:=jumlah + i;
                i     :=i + 1;
              until i> batas;
    writeln('jumlah bilangan 1 sampai dengan  ', batas:1,'=',jumlah:1);
    readln;
    end.

  .........................moga bermanfaat yach...!!!!