Program Repeat-Until Menggunakan Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Bilangan Polinomial berdasarkan inputan bilangan...
:D

 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.

kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :  

jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D

Sudah Baca Yang Ini..?