Cod sursa(job #127787)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 24 ianuarie 2008 23:47:07
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,m,min,s,max,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);
          s:=s+y-x+1;
     end;
     writeln(g,s+k);
     close(g);
end.