Add Pascal learning files

PascalABCnet/while/while2.pas

@@ -0,0 +1,13 @@
+Program While4;
+Var a,b,c:integer;
+ begin
+ ReadLn(a,b);
+ Write (a mod b);
+ {
+ while a mod b =0 do 
+ begin 
+ c:=a mod b;
+ end;
+ WriteLn(c);
+ }
+ end.