learning/Programming Notes/PascalABCnet/while/While_task1.pas

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.