Для настольной игры используются карточки с номерами от 1 до n. одна карточка потерялась. найдите ее, зная номера оставшихся карточек. входные данные дано число n, далее n-1 номер оставшихся карточек (различные числа от 1 до n). выходные данные программа должна вывести номер потерянной карточки.

Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
 begin
 write('k',i,'='); readln(k);
 s1:=s1+i; s2:=s2+k;
 end;
writeln('Потерялась карточка ',s1-s2);
end.

Пример:
n=5
k1=1
k2=3
k3=4
k4=5
Потерялась карточка 2