Program Jumlah Deret Repeat Until Pascal

Berikut ini saya share tentang Program Jumlah Deret sbb :


Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin

clrscr;
Writeln('Menghitung jumlah 1 + 2 + 3 + ... + n');
write('n = ? ');
readln(n);
pencacah:=0;
jumlah:=0;
repeat
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
until pencacah = n+1;
writeln;
writeln('Jumlah deret = ',jumlah);
readln;
end.