LP - Exemplo básico de Loop While - Pascal

Program loop;
     
var numero:integer;

Begin
     numero:=0;
     while numero<10 do
        begin
          writeln('Repetindo com o While !!!');
          numero:=numero+1;
        end;

End.