дан массив А,содержащийф последовательность чисел:0,5;12;-18;16;13;5;8;0 Сформировать массив В.каждый элемент которого вычисляется

program zz1;
const n = 8; // задаем количество частей в массиве
a:array [1..n] of real=(0.5,12,-18,16,13,5,8,0 );
var i:integer; // задаем переменную целого типа
s1, s2:real;// задаем переменные не целого типа
b:array [1..n] of real;
begin
for i:=1 to n do
b[i]:=a[i]/2;
for i:=1 to n do
write(b[i], );
writeln;
for i:=1 to n do
begin
s1:=s1 + a[i];
s2:=s2 + b[i];
end;
writeln( сумма частей массива а = , s1);
writeln( сумма элементов массива b = , s2);
writeln( первый элемент массива а = , a[1]);
writeln( 1-ый элемент массива b = , b[1]);
end.