Cod sursa(job #1169242)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 10 aprilie 2014 18:55:21
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Teme Pregatire ACM Unibuc 2013 Semestrul 2 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.