uses crt;
var a,b:array[0..100] of byte;
    i,n:byte;
    time:longint;
procedure qsort(l,r:byte);
var i,j,x,tmp:byte;
begin
    x:=a[(l+r) div 2];
    i:=l;j:=r;
    repeat
        while a[i] < x do inc(i);
        while a[j] > x do dec(j);
        if i <= j then
            begin
                tmp:=a[i];a[i]:=a[j];a[j]:=tmp;
                tmp:=b[i];b[i]:=b[j];b[j]:=tmp;
                inc(i);dec(j);
            end;
    until i > j;
    if l < j then qsort(l,j);
    if i < r then qsort(i,r);
end;
begin
    clrscr;
    write('So nguoi kham benh n = ');readln(n);
    writeln('Nhap du lieu cho n benh nhan:');
    for i:=1 to n do readln(a[i], b[i]);
    
    qsort(1,n);
    time:=0;
    for i:=1 to n do
        begin
            if time < a[i] then
                time:=a[i] + b[i]
            else
                time:=time + b[i];
        end;
    writeln('Thoi gian it nhat = ',time);
    
readln;
end.