Cod sursa(job #127217)
Utilizator | Glodeanu Ioan Daniel DanielG | Data | 23 ianuarie 2008 16:46:43 |
---|---|---|---|
Problema | Stergeri | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
var x,y,n,k,i,j:longint;
f,g:text;
q,m:byte;
a:array[1..32000] of word;
begin
assign(f,'stergeri.in');reset(f);
assign(g,'stergeri.out');rewrite(g);
read(f,n);
read(f,m);
readln(f,k);
for i:=1 to n do a[i]:=i;
repeat
read(f,x);
readln(f,y);
inc(q);
for i:=x to y do
for j:=x to n do
a[j]:=a[j+1];
until q=m;
write(g,a[k]);
close(f);
close(g);
end.