Cod sursa(job #127823)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 25 ianuarie 2008 00:52:10
Problema Stergeri Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,m,s,x,k,y,i:longint;
begin
     assign(f,'stergeri.in'); reset(f);
     assign(g,'stergeri.out'); rewrite(g);
     readln(f,n,m,k);
     for i:=1 to m do
     begin
          readln(f,x,y);
          if x<=k then s:=s+y-x+1;
     end;
     writeln(g,k+s);
     close(g);
end.