Помогите, пожалуйста,с Паскалем
Case 4 Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 —
февраль и т. д.). Определить количество дней в этом месяце для невисо-
косного года.
Case 10 Case10. Робот может перемещаться в четырех направлениях («С» — север,
«З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые ко-
манды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот
направо. Дан символ C — исходное направление робота и целое число N
— посланная ему команда. Вывести направление робота после выполне-
ния полученной команды

varc:char;s:string;n,i:integer;BEGINread(c);read(n);case c of'С': i:=1;'В': i:=2;'Ю': i:=3;'З': i:=4;end;case n of1: begin i:=i-1; if i=0 then i:=4; end;-1: begin i:=i+1; if i=5 then i:=1; end;end;case i of1:writeln('С');2:writeln('В');3:writeln('Ю');4:writeln('З');end;end. Это вторая задача

Первая задача вот так должна быть записана (а не в строчку):

varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.

огромное спасибо

Первая задача:varn:integer;BEGINread(n);case n of     1,3,5,7,8,10,12: writeln(31);     2: writeln(28);     4,6,9,11:writeln(30);     else writeln('Такого месяца нет');end;END.Над второй еще подумаю, как более короткое решение записать.