### Penjumlahan Dengan Menggunakan While Do

###Dalam Bahasa ALgoritma:
var
        X:Integer
        N:Integer
        a:Integer
BEGIN
        Output('Silahkan Masukan Nilai N: ')
    Input(N)
        X<--1
        a<--0
        While x <= N do
        Begin
                Output(X,' ')
                A<-- a + x
                x<--x+1
        End
        Output()
        Output('Jumlah: ',a)
        
End ALgoritma.

###Dalam Bahasa Pascal:
uses crt;
var
        X:Integer;
        N:Integer;
        a:Integer;
BEGIN
        TEXTBACKGROUND(28);
        Textcolor(87);
        CLRSCR;
        WRITELN('Masukan Nilai N: '); 
        READLN(N);
        X:=1;
        a:=0;
        While x <= N do
        Begin;
                WRITE(X,' ');
                A:= a + x;
                x:=x+1;
        End;
        WRITELN();
        WRITELN('Jumlah: ',a);
        READLN();
End.