Question

CPOЧНО, ПОЖАЛУЙСТА, ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ PASCAL

Answer 1

program kart;
var
   n,i,sum,z:integer;
begin
   read(n);
   sum:=0;
   for i:=1 to n-1 do begin
      read(z);
      sum:=sum+z;
   end;
   writeln((n*(n+1)) div 2 - sum);
end.