Pętla iteracyjna (FOR-DOWNTO-DO)

Pętla iteracyjna FOR-DOWNTO-DO działa praktycznie identycznie jak pętla FOR-TO-DO, z tym wyjątkiem, że wartość zmiennej sterującej jest pomniejszana o 1, a nie powiększana.

Ogólna składnia pętli FOR-DOWNTO-DO wygląda następująco:

FOR i := 10 {wartość początkowa} DOWNTO 0 {wartość końcowa} DO
BEGIN
     write(i); {instrukcja-1}
     writeln('a'); {instrukcja-2}
END; {koniec pętli}

W najprostszym zastosowaniu pętla FOR-DOWNTO-DO, może wyświetlać liczby na przykład od 10 do 1:

program petlaForDowntoDo;
USES crt;
VAR i:byte;
BEGIN
    for i:=10 downto 1 DO
         writeln(i);
END.