program Penjumlahan;

uses wincrt;
var
i, n: integer;
jumlah, bilangan: real;

begin
write(‘Banyak bilangan : ’);read(n);
jumlah := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bilangan);
jumlah := jum+bil;
end;
writeln(‘Jumlah = ‘,jumlah);
end.