Массивы паскаль

[digitalis]

Поскольку задание, как я уже заметил в #5, мягко выражаясь, <censored> то будем считать, что эти имели в виду (см. рис.) Как все нормальные люди, вставляем теги CODE и форматируем отступами.

Program massiv;
var
С:array[1..8] of real;
M:array[1..8] of real;
N:array[1..8] of real;
i:integer;
SumM, ProcC, c5, m8:real;
begin
     ProcC := 1.0 ;
     write('Введите 8 элементов массива C');
     for i:=1 to 8 do
       begin
         read(C[i]);
         ProcC := ProcC * C[i] 
       end ;
    ProcC := ProcC * ProcC ;
    SumM := 0 ;
    write('Введите 8 элементов массива M');
    for i:=1 to 8 do
       begin
           read(M[i]);
           SumM := SumM + M[i]
       end ;      
    c5 := c[5] * SumM - ProcC ;
    m8 := m[8] ;
    for i:=1 to 8 do
      begin
         N[i]:=((c[i] + m8) / c[i]) + c5;
         writeln('N[i]=',N[i])
      end;
end.