Составить программу ввода номера квартала года и печати названий месяцев, входящих в квартал — Pascal(Паскаль)

var x:integer;
 begin
  Readln(x);
   case x of  
    1: Write('Январь Февраль Март');
    2: Write('Апрель Май Июнь');
    3: Write('Июль Август Сентябрь');
    4: Write('Октябрь Ноябрь Декабрь');
   end;
end.