Program Menghitung Jumlah Deret Angka Dengan Turbo Pascal

 

program jumlah_deret;
uses wincrt;
var x,sum,n:integer;
begin
write('Masukan banyaknya angka yang akan dihitung : '); readln(n);
for x:=1 to n do
begin
write (x,' ');
end;
x:=1;
sum:=0;
repeat
sum:=sum+x;
x:=x+1;
until x>n;
writeln(' ');
write ('Total Jumlah Angka Tersebut Adalah : ', sum);
end.