Cod sursa(job #127213)

Utilizator DanielGGlodeanu Ioan Daniel DanielG Data 23 ianuarie 2008 16:43:38
Problema Stergeri Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
var x,y,n,m,k,i,j:integer;
f,g:text;
q:byte;
a:array[1..32000] of integer;
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.