информатика 30 баллов

Const
    max = 100;
var
    arr: array[1..max] of real;
    n: integer;
    op: real;
    i: integer;
 
begin
    write('Количество частей: ');
    readln(n);
 
    writeln('Укажите значения: ');
    for i := 1 to n do
        read(arr[i]);
    op := 1;
    for i := 1 to n do
        op := op * arr[i];

    writeln('Творение частей: ', op:20:2);
 
end.