Cinema_rate with concession

Program cinema_rate;
var age, entrance_fee :integer;
    concession :boolean;
    
begin
   writeln('Please input your age: ');
   readln(age);
   
   concession := false;
   
   if (age < 16) or (age > 65) then
      concession := true;
   
   if concession then
      entrance_fee := 500
   else
      entrance_fee := 1000;
      
   writeln('Your entrance fee is ', entrance_fee);
 
end.