На языке Паскаль напишите программку которой будет определять атмосферное давление за

Вообщем сходственные задания обычно делаются в excel.
И делать с массивом либо без?.
program abc;
var A : array [1..7] of integer;
      s, k: integer;
BEGIN
  s:=0
   for k:= 1 to 7 do
   begin
    readln (A[k]);
    s:=s+A[k];
     end;
      writeln ('Среднее атмосферное давление ', (s/7));
   END.