program  how_dose_A4_come;

uses wincrt;

const

     WOCP := wendy + orange + chirol + panda;

     onion noodle := somebody teach us (*our teacher*) ;

var

     friendly index := integer;

     answer := Boolean;

begin

     write ('In form 4 , WOCP are friends');

     repeat

         write ('Do they go to shopping?');

         readln (answer);

         if answer = true

             then friendly index := friendly index + 1

             else  friendly index := friendly index - 1;

         write ('In form 4 , WOCP are friends');

         write ('Do they go to karaoke?');

         readln (answer);

         if answer = true

             then friendly index := friendly index + 1

             else  friendly index := friendly index - 1

     until friendly index = 100

     write ('One day in year 2002');

     write ('onion noodle ask'' do you go to camp?''');

     readln (answer);

     if answer = true

          then begin

                    friendly index := friendly index + 100;

                    write ('WOCP go to camp');

                 end

          else begin

                    friendly index := friendly index - 100;

                    writeln ('WOCP do not go to camp');

                    write ('No A4 forever');

                 end

      when friendly index >=200 do

          writeln ('onion noodle say''There are a 4-people singer group called ''F4''''.');

          write ('why don't you called ''A4''?');

          write ('The reason is : both F4 and A4 are the size of paper......');

       end;

       readln (answer);

       if answer = true

           then write ('WOCP := A4 forever')

           else write ('No A4 forever');

end.