Membuat Rata-rata Dalam Deret Bilangan Dengan While Do

###Dalam Bahasa Algoritma:
Algoritma While_d0_menentukan_Rata-rata
Var
        X:Integer
        N:Integer
        A:Integer
        Y:Integer
BEGIN
        
        Output('Silahkan Masukan Nilai N: ')
    Input(N)
        x<--1
        A<--0
        Y<--0
        While X<= N Do
        BEGIN
                Output(x,' ')
                A<-- A + x
                x<-- x + 1
                Y<-- A div N
        ENd
        Output()
        Output('Ini Hasil Penjumlahan: ',a)
        Output('Ini Rata-Rata: ',Y)
        
End Algoritma.

###Dalam Bahasa Pascal:
uses crt;
Var
        X:Integer;
        N:Integer;
        A:Integer;
        Y:Integer;
BEGIN
        CLRSCR;
        WRITELN('Silahkan Masukan Nilai N: ');
        READLN(N);
        x:=1;
        A:=0;
        Y:=0;
        While X<= N Do
        BEGIN;
                WRITE(x,' ');
                A:= A + x;
                x:= x + 1;
                Y:= A div N;
        ENd;
        WRITELN();
        WRITELN('Ini Hasil Penjumlahan: ',a);
        WRITELN('Ini Rata-Rata: ',Y);
        READLN();
End.