Введите с клавиатуры в массив пять целочисленных значений. выведите их в одну строку через запятую.получите для массива среднее арифметическое. программу на паскале борланд если можно(бп).

{ Borland Pascal 7.01 }
uses Crt;
const
  n=5;
var
  a:array[1..n] of integer;
  i:integer;
  avg:real;
begin
  ClrScr;
  Write('Введите 5 целых чисел: ');
  avg:=0;
  for i:=1 to n do begin Read(a[i]); avg:=avg+a[i] end;
  avg:=avg/n;
  for i:=1 to n-1 do Write(a[i],','); Writeln(a[n]);
  Writeln('Среднее значение = ',avg);
  ReadKey
end.

Тестовое решение:
Введите 5 целых чисел: 18 10 6 13 15
18,10,6,13,15
Среднее значение =  1.2400000000E+01

Var a: array[1..5] of integer;
     sr,i: integer;
     s: string;
     sar: real;
begin
   sr:=0;
   s:='';
   for i:=1 to 5 do
   begin
       readln(a[i]);
       sr:=sr+a[i];
       s:=s+IntToStr(a[i])+', ';
   end;
   sar:=sr/5;
   s[Length(s)]:='';
   writeln(s);
   writeln('среднее равно:  ',sar);
end.