program whileLoop;

var

   a: integer;

​

begin

   a := 10;

   while  a < 20  do

​

   begin

      writeln('value of a: ', a);

      a := a + 1;

   end;

end.