program petla_repeat_until;
uses crt;
  var { deklaracja zmiennych }
    zakres: integer;
    liczba: integer;
begin
clrscr;
 write ('Podaj maksimum zakresu od 0 do: ');
 readln(zakres);
 writeln;

 repeat

  writeln(liczba);
  liczba:=liczba+1;
 until liczba>zakres;

 writeln('nacisnij ENTER aby zakończyc');

 readln;
end.