Сделать система паскаль ничего не понятно : ( _по номеру квартала определить принадлежащие ему названия месяцев_

Var 
 num:integer;
begin
 writeln('Введите номер квартала'); 
 readln(num); 
 case num of 
  1:writeln('Январь, февраль, март'); 
  2:writeln('Апрель, май, июнь'); 
  3:writeln('Июль, август, сентябрь'); 
  4:writeln('Октябрь, ноябрь, декабрь'); 
 end;
end.