Напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в...

Напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце. При вводе неверного номера месяца должно быть выведено сообщение об ошибке. Считается, что год невисокосный.

Входные данные
Входная строка содержит единственное целое число – номер месяца (возможно, неправильный).

Выходные данные
Выходная строка должна содержать одно целое число – количество дней в этом месяце или 0, если был введён неверный номер месяца.

Примеры
входные данные
4
выходные данные
30
входные данные
25
выходные данные
0

На Паскале.

Var
A:integer;
Begin
Read(A);
Case A of
1:Write(31);
2:Write(28);
3:Write(31);
4:Write(30);
5:Write(31);
6:Write(30);
7:Write(31);
8:Write(31);
9:Write(30);
10:Write(31);
11:Write(30);
12:Write(31);
else
    Write(0);
End;
End.