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

repeat .. until

Pascal Цикли

післяумова в Pascal

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

НіТакПочатокi = 0Вивід ii = i + 1i >= 3КінецьРисунок 1 — Repeat

Вихідний код

program Repeat;
var i: integer;
begin
  i := 0;
  repeat
    writeln(i);
    i := i + 1;
  until i >= 3;
end.