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

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.  

{ 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