Cod sursa(job #184566)

Utilizator kis_lorikis levente lorand kis_lori Data 23 aprilie 2008 21:05:35
Problema Stergeri Scor 20
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 integer;
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.