Program While_Task7;
 const n=10;
 var a:integer;
  begin
   While a<> n do
   Begin
   writeln('hello');
   inc(a);
   end;
   a:=0;
   repeat
    writeln('hello');
   inc(a);
   until a=n;
   end.