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

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