Program penjumlahan_deret; ( Struktur Data )

Program penjumlahan_deret;
uses crt;

var
n,i,jumlah:integer;

begin
write('masukan harga N : ');readln(n);
jumlah := 0;
for i := 1 to n do
jumlah:= jumlah + i;
writeln('jumlah deret = ', jumlah);
readln;
end.