while-do

begin
    i:=0;
    while i<10 do begin
            writeln('Hello World');
            i := i+1;
    end;
end.