Склавиатуры вводят 4 любых числа. вывести на экран среднее арифметическое. составить программу: )

Программа может выглядеть такЖ

uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
  i: integer;
  Sum, Sred: real;

Begin
 ClrScr;
 for i:=1 to n do
     begin
       Write('A[',i, ']=');
       ReadLn(A[i]);
       Sum:=Sum+A[i];
     end;
  Sred:=Sum/n;
  WriteLn ('Sred = ', Sred:5:2);
 ReadLn;
end.