Cod sursa(job #125175)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 20 ianuarie 2008 11:52:00
Problema Stergeri Scor 100
Compilator fpc Status done
Runda preONI 2008, Runda 3, Clasele 5-8 Marime 0.39 kb
type stergeri=record
     x,y:longint;
     end;

var a:array[1..100000] of stergeri;
    f,g:text;
    n,k,i,poz:longint;

begin
 assign(f,'stergeri.in'); reset(f);
 assign(g,'stergeri.out'); rewrite(g);
 read(f,n,k,poz);
 for i:=1 to k do
  read(f,a[i].x,a[i].y);
 for i:=k downto 1 do
  if a[i].x<=poz then
   poz:=poz+a[i].y-a[i].x+1;
 writeln(g,poz);
 close(f); close(g);
end.