Вычислить произведение - Pascal ABC (14089)

Формулировка задачи:

Уже весь мозг сморщил, не могу понять правильно сделал или нет=( Вузовский курс программирования уже напрочь из головы вылетел=( То что у меня получилось:

uses crt;
var a:array[1..15] of real;
 b:array[1..15] of real;
var
m,n,i:integer;
max, imax,s: real;
begin
write('введите кол-во элементов массива=');
read(n);
m:=n;
s:=1;
writeln ('massiv a');
for i:=1 to n do 
begin
a[i]:=sin(i);
write (a[i]:6:3,'  ');
end;
writeln ('massiv b');
for i:= 1 to m do
begin
b[i]:=cos(pi+i);
write (b[m]:6:3,'  ');
end;
for i:=1 to n do
begin
s:=s*(a[i]+b[m]);
m:=n-1;
end;
writeln ('произведение = ',s);
max:=a[1];
  for i:=1 to n do 
    begin
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
      if a[i]>= max then
        begin
          max:=a[i]; imax:=i; 
        end;
    end;
{Печатаем максимальный элемент и его индекс.}
  writeln(max, ' номер: ' ,imax);
end.

Решение задачи: «Вычислить произведение»

Листинг программы

uses crt;
var a,b:array[1..15] of real;
    m,n,i,imax:integer;
    max,s: real;
begin
repeat
write('введите кол-во элементов массива от 1 до 15 n=');
readln(n);
until n in [1..15];
m:=n;
s:=1;
writeln ('Массив А');
for i:=1 to n do
 begin
  a[i]:=sin(i);
  write (a[i]:8:3);
 end;
writeln;
writeln ('Массив В');
for i:=1 to m do
 begin
  b[i]:=cos(pi+i);
  write (b[i]:8:3);
 end;
writeln;
s:=1;
for i:=1 to n do
s:=s*(a[i]+b[n-i+1]);
writeln ('Произведение = ',s:0:3);
max:=a[1];
imax:=1;
for i:=2 to n do
if a[i]>= max then
 begin
  max:=a[i];
  imax:=i;
 end;
writeln('Максимальный элемент массива А=',max:0:3,' номер=',imax);
end.

Объяснение кода листинга программы

Используется библиотека crt, которая обеспечивает функции ввода-вывода.
Объявлены переменные a, b:array[1..15] of real; и m, n, i, imax:integer;. Переменная max устанавливается равной первому элементу массива a, а переменная s устанавливается равной 1.
Запускается цикл repeat, который продолжается до тех пор, пока введенное число n не будет находиться в диапазоне от 1 до 15.
Переменная m устанавливается равной n.
Запускается цикл for, который проходит по каждому элементу массива a от 1 до n. Внутри цикла вычисляется значение a[i] с помощью функции sin(i). Значение a[i] выводится на экран.
После завершения цикла for, переменная s устанавливается равной произведению суммы всех элементов массива a и b[n-i+1].
Запускается цикл for, который проходит по каждому элементу массива b от 1 до m. Внутри цикла вычисляется значение b[i] с помощью функции cos(pi+i). Значение b[i] выводится на экран.
После завершения цикла for, выводится значение переменной s.
Запускается цикл for, который проходит по каждому элементу массива a от 1 до n. Внутри цикла вычисляется максимальное значение a[i] с помощью функции max(a[i], max). Если a[i] больше max, то max и imax обновляются.
После завершения цикла for, выводится значение максимального элемента массива a и его номер.