program whileLoop;
var
   a: integer;
begin
   a := 10;
   while  a < 20  do
   begin
      writeln('O arithmos a einai: ', a);
      a := a + 1;
   end;
end.