program Ciklus;
var
i: Integer;
begin
i := 0;
repeat
i := i + 1;
Writeln('Zdravo');
until i = 10;
end.
Контролна структура (наредбa) за ЦИКЛИЧНО ПОВТОРУВАЊЕ - REPEAT UNTIL -
repeat Кај оваа контролна структура (наредбa) за
ЦИКЛИЧНО ПОВТОРУВАЊЕ
- REPEAT UNTIL
program Ciklus; |