Cod sursa(job #390895)

Utilizator CrisstiHDCristian Holdunu CrisstiHD Data 4 februarie 2010 19:14:55
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.75 kb
program stergeri;
VAR f,g:text;
    v:array [1..20000000] of shortint;
    x1,x2,n,d,m,j,k,i:shortint;

    BEGIN


        assign(f,'stergeri.in');
        assign(g,'stergeri.out');
        reset(f);
        rewrite(g);

                readln(f,n,m,k);



                        for i:=1 to n do begin
                                readln (f,x1,x2);
                                d:=x2-x1+1;

                                for j:=1 to (n-x1) do
                                        v[x1]:=v[x1+d];

                                n:=n-d;
                                x1:=0;
                                x2:=0;
                                end;
        write(g,v[k]);

        close(f);
        close(g);
        end.