Cod sursa(job #137604)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 17 februarie 2008 12:47:22
Problema Heavy metal Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 4, Clasele 5-8 Marime 0.52 kb
program heavymetal;
var f,g:text;
    n,a,b,ok,j,s,i:longint;
    v:array[1..1000000000]of 0..1;
begin
assign(f,'heavymetal.in');
assign(g,'heavymetal.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do
  begin
    read(f,a,b);
    ok:=0;
    for j:=a to b do
      if (v[j]=1)then
        begin
          ok:=1;
          break;
        end;
    if (ok=0)then
      begin
        s:=s+(b-a);
        for j:=a+1 to b-1 do
          v[j]:=1;
      end;
  end;
write(g,s);
close(f);
close(g);
end.