Program Z;

uses crt;

const N=5;

var A:array [1..N] of integer;

      i:integer;

      s:real;

begin 

     ClrScr;  

     for i:=1 to N do

     readln (A[i]);

     ClrScr;

      for i:=1 to N do

      begin

      write (A[i],',');

      s:=s+A[i];

      end;

      writeln;

      s:=s/n;

      writeln (s);

      readln

end. всё изи