Berikut merupakan contoh program penjumlahan bilangan secara berulang sampai dengan angka terakhir, dengan soal :

3 + 7 + 11 + … + 403

Dari flowchart diatas maka saya membuat program dengan mengikuti alur tersebut :

program Ivans1;
uses crt;

var a,s : integer;

begin
        clrscr;

        s := 0;
        a := 3;

        while a <= 403 do
            begin
                 s := s + a;
                 a := a + 4;
            end;

        write('s = ',s);

        readln();
end.

Maka output yang dihasilkan adalah hasil dari penjumlahan semua bilangan tersebut :