Implementando "Cerveja"

 Begin
   repeat
     while ( ESTIVER COM SEDE ) do begin
       for i := 1 to 7 do
       begin
       
         inc( i ) ;
       end;
     end;
   until ( TOMAR SAIDERA );
 End.