BAB 1C : Perulangan - For

Solusi BAB 1C : Perulangan - While+Counter

program forfor;

var jml,jbil,i,bil : integer;

begin

    jml := 0;

    read(jbil);

     

    for i := 1 to jbil do

    begin

       read(bil);

       jml := jml + bil;

    end;

     

    writeln(jml);

readln end.