Cod sursa(job #125398)

Utilizator Allosaurusqwertyldskfn 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.