var
  InchSize: Integer;
  Text: string;
begin
  InchSize := 24;

  //case lists and ranges
  case InchSize of
    14, 15: Text := 'too small';
    16..18: Text := 'good for the past decade';
    19..23: Text := 'for office work';
    24..27: Text := 'great choice';
  else
    Text := '';
  end;
  //text is 'great choice'

  WriteLn('Monitor ', InchSize,
    '" is ', Text);
end.