← Усі приклади

for .. downto

Pascal Цикли

спадний for

Блок-схема за ДСТУ

Початокi = 5, 1, -1Вивід iКінецьРисунок 1 — Countdown

Вихідний код

program Countdown;
var i: integer;
begin
  for i := 5 downto 1 do
    writeln(i);
end.