Вычислить произведение элементов вектора L(28) меньших 1. не могу запустить

Question

Вычислить произведение элементов вектора L(28) меньших 1.
не могу запустить

---

Comments

Что значит "Не могу запустить"? Что пишет?

---

Program1.pas(10) : Встречено '<', а ожидалось ';' 10 строка

---

Надо сюда не рукопись помещать, а текст программы, как он набран был.

---

а лучше и то и то, но текст программы обязательно

Answer 1

Var
    a: array[1..28] of real;
    i: integer;
    s: real;

begin
    s := 1;
    for i := 1 to 28 do
    begin
        writeln('Введите ', i, ' элемент массива ');
        readln(a[i]);
        if a[i] < 1 then s := s * a[i];
    end;
    writeln('Произведение = ', s);
end.

куча ошибок
и вообще нужно выкладывать тот код что у тебя вышел, а не только написанное на бумажке