PROGRAM przedzial;
USES CRT;
VAR
a,b,i:integer;
BEGIN
CLRSCR;
REPEAT
WRITELN('Podaj poczatek przedzialu: ');
READLN(a);
WRITELN('Podaj koniec przedzialu: ');
READLN(b);
 IF a>=b THEN
  WRITELN('Poczatek musi byc < od konca!');
UNTIL b>a;
 
WRITELN('Petla FOR:');
FOR i:=b DOWNTO a DO
WRITELN(i);
i:=b;
WRITELN('Petla REPEAT:');
REPEAT
  WRITELN(i);
  i:=i-1;
UNTIL i<a ;
i:=b;
WRITELN('Petla WHILE:');
WHILE i>=a DO
 BEGIN
  WRITELN(i);
  i:=i-1;
 END;
END.</a>