BAB 1C : Perulangan - While+Counter

Solusi BAB 1C : Perulangan - While+Counter

var jumlah,bil : longint;

begin

jumlah := 0;

while not eof(input) do

begin

   readln(bil);

   jumlah := jumlah + bil;

end;

writeln(jumlah);

readln end.