program TestWhile1;
    
begin
    i := 1;
    
    while i <= 5 do begin
        j := 10;
        
        while j <= 30 do begin
            j := j + 10
        end;
        
        i := i + 1
    end
end.