Program Simple_Repeat;
{program adds integers until sum is >8}
Uses WinCrt;
Var
   Sum, Number:Integer;

Begin
     Sum:=0;
     Number:=0;

     Repeat
           Write('Enter Number');
           Readln(Number);
           Sum:=Sum+Number;
     Until Sum>8;
     Writeln('Program over. Total sum is', Sum);
End.