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,17 @@
+Program case_of;
+ Var a:integer;
+  begin
+   WriteLn('Ââåäèòå íîìåð íîòû');
+   ReadLn(a);
+   case a of
+   1: WriteLn('íîòà äî');
+   2: WriteLn('íîòà ðå');
+   3: WriteLn('íîòà ìè');
+   4: WriteLn('íîòà ôà');
+   5: WriteLn('íîòà ñîëü');
+   6: WriteLn('íîòà ëÿ');
+   7: WriteLn('íîòà ñè');
+   else WriteLn('ÍÅÒ ÒÀÊÎÉ ÍÎÒÛ!!!')
+   end;
+   end.
+