Cod sursa(job #125163)

Utilizator ProtomanAndrei Purice Protoman Data 20 ianuarie 2008 11:48:14
Problema Stergeri Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 3, Clasele 5-8 Marime 0.58 kb
var f1,f2:text;
    i,n,m,k:longint;
    v1,v2:array[0..100010] of longint;
begin
        assign(f1,'stergeri.in');
        reset(f1);
        assign(f2,'stergeri.out');
        rewrite(f2);
        read(f1,n,m,k);
        for i:=1 to m do
                read(f1,v1[i],v2[i]);
        for i:=m downto 1 do
                if k>=v1[i] then
                begin
                        if k>v2[i] then
                                k:=k+v2[i]-v1[i]+1
                        else k:=v2[i]+k-v1[i]+1;
        writeln(f2,k);
        close(f1);
        close(f2);
end.