Составить программу на языке Паскаль.а) Вычислить среднее арифметическое частей массива

Нужно округление среднего арифметического?

1-ая задача:
var
  i, c, sum: shortint;
  sr: real;
  m: array[1..20] of shortint;

begin
  sum := 0;
  readln(c);
  for i := 1 to c do
  begin
    readln(m[i]);
    sum := sum + m[i];
  end;
  sr := sum / c;
  sr := round(sr * 100) / 100;  //если округлять не необходимо, удали эту строку
  writeln('Среднее арифметическое: ', sr);
end.


2-ая задача:
var
  i, c: shortint;
  p: integer;
  m: array[1..20] of shortint;

begin
  p := 1;
  readln(c);
  for i := 1 to c do readln(m[i]);
  for i := 1 to c do p := абс(p * (m[i]));
  writeln('Творенье всех модулей массива: ', p)
end.