Cod sursa(job #227422)

Utilizator basketbalistu92alexandru catalisan basketbalistu92 Data 4 decembrie 2008 16:15:07
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var n,m,k,i,x,y:longint;
    a:array[1..200]of integer;
begin
assign(input,'stergeri.in');reset(input);
assign(output,'stergeri.out');rewrite(output);
readln(n,m,k);
for i:=1 to n do
a[i]:=i;
for i:=1 to m do begin
  readln(x,y);
  if a[k]>a[x] then k:=k+y-x+1;
end;
write(a[k]);
close(input);close(output);
end.