{
V programu nahradte cyklus repeat cyklem while
a naopak vnoreny cyklus while nahradte cyklem repeat tak,
aby funkcne program pracoval stejne.
}

program prohod_while_a_repeat;
uses Crt;
var A,B: integer;

begin
  ClrScr;
  A:=40;
  B:=1;
  repeat
    A:=pred(A);
    writeln('A=', A);
    while A mod B = 0 do
    begin
      B:=succ(B);
      writeln('B=', B);
    end
  until A < B;
  write('Konec, A je mensi nez B');
  readln;
end.