var
n,i,s,k:integer;
begin;
writeln('vvedite kolichestvo kartochek');
readln(n);
repeat
inc(i);
s:=s+i;
until i=n;
repeat
writeln('vvedite nomer kartochki');
readln(k);
s:=s-k;
dec(i);
until i=1;
writeln('poteryana kartochka nomer ',s);
readln;
end.
var
n,i,s,k:integer;
begin;
writeln('vvedite kolichestvo kartochek');
readln(n);
repeat
inc(i);
s:=s+i;
until i=n;
repeat
writeln('vvedite nomer kartochki');
readln(k);
s:=s-k;
dec(i);
until i=1;
writeln('poteryana kartochka nomer ',s);
readln;
end.