20 lines
428 B
ObjectPascal
20 lines
428 B
ObjectPascal
program case2;
|
|
var a:integer;
|
|
begin
|
|
WriteLn('Ââåäèòå íîìåð ìåñÿöà');
|
|
ReadLn(a);
|
|
case a of
|
|
1: WriteLn('ßíâàðü');
|
|
2: WriteLn('Ôåâðàëü');
|
|
3: WriteLn('Ìàðò');
|
|
4: WriteLn('Àïðåëü');
|
|
5: WriteLn('May');
|
|
6: WriteLn('Èþíü');
|
|
7: WriteLn('Àâãóñò');
|
|
9:WriteLn('Ñåíòÿáðü');
|
|
10:WriteLn('Îêòÿáðü');
|
|
11:WriteLn('Íîÿáðü');
|
|
12:WriteLn('Äåêàáðü');
|
|
else WriteLn('ÍÅÒ ÒÀÊÎÃÎ ÌÅÑßÖÀ!!!')
|
|
END;
|
|
end. |