Wyświetl za pomocą pętli while, w języku Pascal, liczby od 1 do 100, z tym, że liczby od 10 do 100 mają się wyświetlać co druga. Bardzo proszę o pomoc, za pomocą pętli for i repeat wszystko grało, ale to trochę mi nie wychodzi.

  Z pętlą while: Var i:byte; Begin  i:=1;  while i<=100 do   begin    if (i<10) then     begin      write(i,);      inc(i);     end else     begin      write(i,);      inc(i,2);     end;   end;  readln; End.   Lub: Var i:byte; Begin  i:=1;  while i<10 do   begin    write(i,);    inc(i);   end;  while i<=100 do   begin    write(i,);    inc(i,2);   end;  readln; End.