Для настольной игры используются карточки с номерами от 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=5k1=1k2=3k3=4k4=5потерялась карточка 2

Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
  begin
    while y>0 do
      begin
        c:=x mod y;
        x:=y;
        y:=c;
      end;
      NOD:=x;
  end;
Function NoK(x,y:longint):longint;
  begin
    NOK:=(x*y) div NOD(x,y);
  end;
begin
  readln(a,b,c,d);
  n:=NoK(b,d);
  a:=a*(n div b);
  c:=c*(n div d);
  m:=a+c;
  k:=nod(a,c);
  write(m div k, ,n div k);
end

A := 8
b := 3
b := a/2*b = 8/2*3 = 4*3 = 12
a := 2*a+3*b = 2*8+3*12 = 16+36 = 52
Ответ: 52

Program pr;
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.