Cod sursa(job #127682)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 24 ianuarie 2008 21:13:36
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program alex;
var n,m,k,i:longint;
    y,x:array[1..100000]of longint;
    f:text;
begin
assign(f,'stergeri.in');reset(f);
readln(f,n,m,k);
for i:=1 to m do
    readln(f,x[i],y[i]);
for i:=m downto 1 do
    if x[i]<=k then k:=k+(y[i]-x[i])+1;
close(f);
assign(f,'stergeri.out');rewrite(f);
write(f,k);
close(f);
end.