Pagini recente » Cod sursa (job #1655696) | Cod sursa (job #30651) | Cod sursa (job #1391789) | Cod sursa (job #2210654) | Cod sursa (job #125248)
Cod sursa(job #125248)
program stergeri;
var numere : array [1..30000] of word;
fin, fout : text;
m, n, deu, pau,i, k :longint;
procedure adu;
var i : longint;
begin
for i := pau+1 to n do
numere[deu+i-pau-1]:= numere[i];
n := n - (pau-deu+1);
end;
begin
assign(fin,'stergeri.in'); reset(fin);
assign(fout,'stergeri.out'); rewrite(fout);
readln(fin, n, m, k);
for i := 1 to n do
numere[i]:=i;
for i := 1 to m do
begin
readln(fin, deu, pau);
adu;
end;
writeln(fout,numere[k]);
close(fin);
close(fout);
end.