program pseudo ;

var     { declare all variables }
   countyogfee    : integer ;
   countaerfee    : integer ;
   countgymfee    : integer ;
   countyog       : integer ;
   countaer       : integer ;
   countgym       : integer ;
   yogattend_fee  : integer ;
   aerattend_fee  : integer ;
   gymattend_fee  : integer ;
   yogfeetot      : integer ;
   aerfeetot      : integer ;
   gymfeetot      : integer ;

   mem_fee        : integer ;
   attend_fee     : integer ;

   name           : string ;
   programs       : string ;
   mem_stat       : string ;

begin
   countyogfee    := 0 ;     { initialize variables }
   countaerfee    := 0 ;
   countgymfee    := 0 ;
   countyog       := 0 ;
   countaer       := 0 ;
   countgym       := 0 ;
   yogattend_fee  := 0 ;
   aerattend_fee  := 0 ;
   gymattend_fee  := 0 ;
   yogfeetot      := 0 ;
   aerfeetot      := 0 ;
   gymfeetot      := 0 ;
   
   write ('enter your name. to stop data entry,type stop: ') ;
   readln (name) ;
   while name <> 'stop' do begin
      write ('enter the program enrolled either gym, yoga or aerobic ') ;
      readln (programs) ;
      write ('enter memership fee for the month ') ;
      readln (mem_fee) ;
      write ('enter monthly attendance fee for the month ') ;
      readln (attend_fee) ;
      if mem_fee = 1000 then
         mem_stat := 'REGULAR'
      else
         mem_stat := 'SPECIAL' ;
      
      if (programs = 'yoga') and (mem_fee = 1000) then
         countyogfee := countyogfee + 1
      else if (programs = 'aerobic') and (mem_fee = 1000) then
         countaerfee := countaerfee + 1
      else if (programs = 'gym') and (mem_fee = 1000) then
         countgymfee := countgymfee + 1 ;
      
      if programs = 'yoga' then begin
         countyog       := countyog + 1 ;
         yogattend_fee  := yogattend_fee + attend_fee ;
         yogfeetot      := yogfeetot + mem_fee
      end
      else if programs = 'aerobics' then begin
         countaer       := countaer + 1 ;
         aerattend_fee  := aerattend_fee + attend_fee ;
         aerfeetot      := aerfeetot + mem_fee
      end
      else if programs = 'gym' then begin
         countgym       := countgym + 1 ;
         gymattend_fee  := gymattend_fee + attend_fee ;
         gymfeetot      := gymfeetot + mem_fee
      end ;
      
      writeln ('the name of the member entered is ', name) ;
      writeln ('the status of the member ', mem_stat) ;
      writeln ('attendance fee ', attend_fee) ;
      writeln ('membership fee is ', mem_fee) ;
      writeln ('the program they paid for is ', programs) ;
      writeln ('enter your name. to stop data entry, type: stop ') ;
      readln (name)
   end ;
   
   yogfeetot   := yogfeetot + yogattend_fee ;
   gymfeetot   := gymfeetot + gymattend_fee ;
   aerfeetot   := aerfeetot + aerattend_fee ;

   writeln ('the total number of members in yoga is : ', countyog) ;
   writeln ('the total number of members in gym is: ' ,countgym) ;
   writeln ('the total number of members in aerobic: ' , countaer) ;
   writeln ('the total number of members who paid for their attendance fee in yoga: ' , countyogfee) ;
   writeln ('the total number of members who paid for their attendance fee in gym: ' , countgymfee) ;
   writeln ('the total number of members who paid for their attendance fee in aerobics: ' , countaerfee) ;
   
   writeln ('the total fees paid in yoga is: ', yogfeetot) ;
   writeln ('the total fees paid in gym: ', gymfeetot) ;
   writeln ('the total fees paid in aerobics: ', aerfeetot)
end.