Cod sursa(job #127824)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 25 ianuarie 2008 01:10:22
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var f,g:text;
    x,y:array[1..100000] of longint;
    n,m,s,k,i:longint;
begin
     assign(f,'stergeri.in'); reset(f);
     assign(g,'stergeri.out'); rewrite(g);
     readln(f,n,m,k);
     for i:=1 to m do readln(f,x[i],y[i]);
     for i:=m downto 1 do if x[i]<=k then k:=k+y[i]-x[i]+1;
     writeln(g,k);
     close(g);
end.