Reorganize

2026-03-02 19:15:17 +02:00
parent 9192716bfb
commit f235a35ebb
610 changed files with 1 additions and 0 deletions
@@ -0,0 +1,20 @@
+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.