contoh program 9

uses crt;

var

        n, jml, ang: integer;

begin

clrscr;

        n := 0;

        jml := 0;

       

        repeat

        begin

                         write('Masukkan Data   : '); readln(ang);

                         jml := jml + ang;

                         n := n + 1;

        end;

        until jml > 1000;

         writeln;

         write('Banyak data ', n, ' Jumlah nya ', jml); readln;

end.