Cod sursa(job #201959)

Utilizator GavrilaVladGavrila Vlad GavrilaVlad Data 5 august 2008 12:27:16
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var a,b:array[1..100100]of longint;
    n,i,k,m,o:longint;
    f:text;
begin
   assign(f,'stergeri.in');
   reset(f);
   read(f,n,m,k);
   for i:=1 to m do
   read(f,a[i],b[i]);
   for i:=m downto 1 do
   if k>=a[i] then k:=k+b[i]-a[i]+1;
   assign(f,'stergeri.out');
   rewrite(f);
   writeln(f,k);
   close(f);
end.