Repeat Until

Repeat UNTIL

Penjumlahan bilangan antara 1...10 menggunakan Repeat..until.

Uses CRT ;
VAR
      J   :Byte  ;
      Totj :Integer ;
Begin
      CLRSCR ;
      TotJ := 0 ; J := 0 ;
      Repeat
                  INC (J) ;
                  TotJ := TotJ + J ;
      Until J= 10  =  ;
      Write ('Tot J :', TotJ );
END.