Add Pascal learning files

PascalABCnet/while/While_task1.pas

@@ -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.