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,11 @@
+program case_;
+ var a:integer;
+  begin
+   WriteLn('Ââåäèòå êîë-âî ñëîíèêîâ îò 1 äî 50');
+   ReadLn(a);
+   Case a of
+   1,21,31,41:WriteLn(a,'    ñëîíèê');
+   2..4,22..24,32..34,42..44:WriteLn(a,'     Ñëîíèêa');
+   5..20,25..30,35..40,45..50:WriteLn(a,'     Ñëîíèêîâ');
+   end;
+  end.