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 While_task_1;
+ Var a,b:integer;
+  Begin
+   ReadLn(b);
+   a:=1;
+   While ((a<b) or (a=b)) do
+  begin
+   WriteLn(a);
+   inc (a);
+   end;
+  end.