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

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