В ведомости указана зарплата, выплаченная каждому из сотрудников фирмы за некоторый месяц. Определить общую сумму выплаченных по ведомости денег — Pascal(Паскаль)

uses crt;
 const n=5;
 a:array[1..n] of Integer = (2100,10000,3333,4000,5000);
var
 i,sum,s:Integer;
begin
 sum:=0;
 Writeln(' sum: ');
 for i:=1 to N do begin
  Write(a[i]:7);
  sum:=sum+a[i];
 end;
 Writeln;
 Write('Many sum: ',sum);
 readln
end.

const nmax=100;
var z,sum:real;//вдруг будут большие суммы, примем тип real
    n,i:byte;
begin
write('Количество сотрудников до ',nmax,' n=');
readln(n);
writeln('Введите зарплату за месяц:');
sum:=0;
for i:=1 to n do
 begin
  write('Сотрудник ',i,': ');
  readln(z);
  sum:=sum+z;
 end;
write('Сумма зарплаты за месяц составила ',sum:0:0);//выводим как целое число
readln
end.