a := 10;
   repeat
      writeln('value of a: ', a);
      a := a + 1
   until a = 20;