Приведите пример алгоритма содержащего повторение

Question

Приведите пример алгоритма содержащего повторение

Answer 1

Program rep;
Var a:integer;
Begin
Writeln('1 or 0);
Readln(a);
While a=1 do
Begin
Writeln('1 or 0');
Readln(a);
End;
End.