Cod sursa(job #184693)

Utilizator kis_lorikis levente lorand kis_lori Data 24 aprilie 2008 07:52:33
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var n,m,k,i:longint;
    x,y:array [1..100000] of longint;
begin
 assign(input,'stergeri.in'); reset(input);
 assign(output,'stergeri.out'); rewrite(output);
  readln(n,m,k);
  for i:=1 to m do readln(x[i],y[i]);
  for i:=m downto 1 do
   if x[i]<=k then k:=k+(y[i]-x[i]+1);
  writeln(k);
 close(input); close(output);
end.