SCJ2 No 4

program rata;
uses crt;
var x,jumlah,pembagi:integer;
    ratarata:real;
begin
        clrscr;
        jumlah:=0;
        pembagi:=0;
        x:=5;
        while (x<>0) do
        begin
                write('Masukkan nilai x:');
                read(x);
                jumlah:=jumlah+x;
                pembagi:=pembagi+1;
        end;
        ratarata:=jumlah div (pembagi-1);
        writeln('Rata-Rata = ',ratarata:0:2);
readkey;
end.