Помогите пожалуйста) Нужно написать программу…

Program zadacha; Var n: integer; BeginCase n of1: writeln ('Январь 31); 2: writeln ('Февраль 28'); 3: writeln ('Март 31'); 4: writeln ('Апрель 30'); 5: writeln ('Май 31'); 6: writeln ('Июнь 30); 7: writeln ('Июль 31); 8: writeln ('Август 31'); 9: writeln ('Сентябрь 30'); 10: writeln ('Октябрь 31') '; 11: writeln ('Ноябрь 30'); 12: writeln ('Декабрь 31'); End; End.