Pascal Looping while-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai looping while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

uses crt;
 var i, n, jumlah: integer;
 begin
 clrscr;
 writeln('menjumlahkan deret 1+2+3+..+n');
 writeln;
 write('masukkan nilai n: ');readln(n);
                jumlah:=0;
                i:=1;
 while i<=n do
 begin
 jumlah:=jumlah+i;
 i:=i+1;
 end;
 write('deret dari 1 sampai : ',n,' = ',jumlah);
 readln;
 end.