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

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.