Дан массив 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. всё изи