Cod sursa(job #671039)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 30 ianuarie 2012 16:53:42
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
Program stergeri;
 var a,b:array [1..100005] of longint;
     i,n,m,k:longint;
     fi,fo:text;
begin
 assign(fi,'stergeri.in');
  assign(fo,'stergeri.out');
 reset(fi); rewrite(fo);
 readln(fi,n,m,k);
  for i:=1 to m do readln(fi,a[i],b[i]);
   for i:=m downto 1 do
    if k>=a[i] then k:=k+b[i]-a[i]+1;
  write(fo,k); close(fo);
end.