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,13 @@
+Program While_Task3;
+ const n=5;
+ var a:integer;
+  begin
+   WriteLn('Ââåäè 5');
+   ReadLn(a);
+   While a<>n do
+   begin
+   WriteLn ('Íå âåðíî, ïîïðîáóé åùå');
+   ReadLn(a);
+   end;
+   WriteLn('Ìîëîäåö');
+  end.