Cod sursa(job #125398)
Utilizator | qwertyldskfn Allosaurus | Data | 20 ianuarie 2008 12:46:54 |
---|---|---|---|
Problema | Stergeri | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 3, Clasele 5-8 | Marime | 0.46 kb |
var n,m,k,i,i1,i2,x,y,x1,y1,x2,y2,d:longint;
f,g:text;
begin
assign(f,'stergeri.in');reset(f);
assign(g,'stergeri.out');rewrite(g);
read(f,n,m,k);
read(f,x,y);
x1:=x;
y1:=y;
d:=y-x+1;
for i:=2 to m do begin
read(f,x,y);
i1:=x;
i2:=y;
if x1<=i1+d then i1:=i1+d;
if y1<=i2+d then i2:=i2+d;
x1:=i1;
y1:=i2;
d:=i2-i1+1+d;
end;
x2:=x1+x;
y2:=y1+y;
writeln(g,(x2-x1+k-1)+(y2-y1+k-1));
close(f);
close(g);
end.