Дан массив mas (s) из вещественных элементов. Введите в строку и выведите в строку элементы массива с одним знаком после запятой, на вывод числа отведите 6 позиций

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. всё изи