Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Increment-a-numerical-string/Pascal/increment-a-numerical-string.pas
+++ b/Task/Increment-a-numerical-string/Pascal/increment-a-numerical-string.pas
@ -0,0 +1,20 @@
+program TestIncNumString;
+type
+	tMyNumString = string(20);
+
+procedure IncMyString(var NumString: tMyNumString);
+var
+	i: integer;
+begin
+	readStr(NumString, i);
+	writeStr(NumString, succ(i))
+end;
+//example
+var
+  MyNumString :tMyNumString;
+BEGIN
+  MyNumString := '12345';
+  write(MyNumString,' turns into ');
+  IncMyString(MyNumString);
+  write(MyNumString);
+END.