Cod sursa(job #125248)

Utilizator matemariaescuMaria Mateescu matemariaescu Data 20 ianuarie 2008 12:17:59
Problema Stergeri Scor 30
Compilator fpc Status done
Runda preONI 2008, Runda 3, Clasele 5-8 Marime 0.56 kb
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.