program class4q1; uses wincrt;
var seat, member, old12, old6 : char;
    charges : integer;
begin
  writeln('Cashier');
  writeln('-------');
  write('Does the customer want a front seat (Y/N) ?');
  readln(seat);
  write('Is the customer a member of Fun Club (Y/N) ?');
  readln(member);
  if member = 'Y'
    then begin if seat = 'Y'
                 then writeln('Charges $10');
               if seat = 'N'
                 then writeln('Charges $12.5')
         end;
  if member = 'N'
    then begin
           write('Is the customer aged 12 or older (Y/N) ?');
           readln(old12);
           if old12 = 'Y'
             then begin 
              
                    case seat of
                    'Y' : charges := 20;
                    'N' : charges := 25
                    end;

                    writeln('Charges $',charges)
                  end;
           if old12 = 'N'
             then begin
                    write('Is the customer aged 6 through 11 (Y/N) ?');
                    readln(old6);
                    if old6 = 'Y'
                      then begin 

                             case seat of
                               'Y' : charges := 12;
                               'N' : charges := 16
                             end;

                             writeln('Charges $',charges)
                           end;
                    if old6 = 'N'
                      then writeln('Do not admit.')
                  end;
         end
end.

program class4q2; uses wincrt;
var n1, n2, n3 : real;
begin
  write('Please enter three numbers : ');
  readln(n1, n2, n3);
  writeln('In ascending order, they should be printed as');
  if (n1 < n2) and (n2 < n3)
    then writeln(n1:0:3,', ',n2:0:3,' and ',n3:0:3);
  if (n1 < n3) and (n3 < n2)
    then writeln(n1:0:3,', ',n3:0:3,' and ',n2:0:3);
  if (n2 < n1) and (n1 < n3)                  
    then writeln(n2:0:3,', ',n1:0:3,' and ',n3:0:3);
  if (n2 < n3) and (n3 < n1)
    then writeln(n2:0:3,', ',n3:0:3,' and ',n1:0:3);
  if (n3 < n1) and (n1 < n2)
    then writeln(n3:0:3,', ',n1:0:3,' and ',n2:0:3);
  if (n3 < n2) and (n2 < n1)
    then writeln(n3:0:3,', ',n2:0:3,' and ',n1:0:3)
end.

program class4q3; uses wincrt;
var book, days, fpd, fine : integer;
begin
  write('Enter the number of books : ');
  readln(book);
  write('Enter the number of days exceeding the due date : ');
  readln(days);
  if days <= 14
    then 

      case days of
        1..7  : fpd := 3;
        8..14 : fpd := 8
      end

    else fpd := 10;
  fine := book*(7*book+(days-7)*fpd);
  writeln('The total fine is $',fine)
end.