Tulisan 6: Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis

Ini adalah codingan programnya:

program jum_bil; 
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;




Dan ini adalah hasil output program setelah dirunning: 

Masukkan Bilangan = 12 
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60