Я не понял по каким числам оно должно работать, ты пишешь при вводе 4 ЦЕЛЫХ чисел а потом протестировать на вещественные.... что ты имешь ввиду???

Если что то не так то поменяй тип с integer на real.

program zadacha_1;
const
  n = 4;
var
  Arr : array [1..n] of integer;
  i, sum : integer;
begin
  sum := 0;
  for i := 1 to n do
  begin
    writeln('Введите значение ', i, ' элемента.');
    read(Arr[i]);
    sum := sum + Arr[i];
  end;
  writeln('Ср. арифмитическая сумма равна: ', sum/n);
end.