Помогите пожалуйста, очень срочно! Нужно написать программу, где машина должна…

var x,y: integer; Beginread (x, у); case x of1,3,5,7,8,10,12: if (y<1) or (y>31) then goto 1; 2: if (y<1) or (y>29) then goto 1; 4,6,9,11: if (y<1) or (y>30) then goto 1; elseWrite ('Неправильно введен номер месяца'); end; Write ('Дата введена правильно'); Write ('Неправильно введено число'); end.