Cod sursa(job #238080)

Utilizator DanielGGlodeanu Ioan Daniel DanielG Data 31 decembrie 2008 14:50:46
Problema Stergeri Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
var x,y:array[1..1000] of longint;
n,k,m,i:longint;
f:text;
begin
assign(f,'stergeri.in');reset(f);
read(f,n,m,k);
for i:=1 to m do read(f,x[i],y[i]);
close(f);
for i:=m downto 1 do
    if x[i]<=k then k:=k+y[i]-x[i]+1;
assign(f,'stergeri.out');rewrite(f);
writeln(f,k);
close(f);
end.