Информатика. Прошу о помощи тех, кто шарит в этой сфере. Помогите написать программу на языке pascal. Текст задачи ниже.

var a: array[1..3] of integer;

var answ, i: integer;

begin

writeln('Введите 1 число');

readln(a[1]);

writeln('Введите 2 число');

readln(a[2]);

writeln('Введите 3 число');

readln(a[3]);

answ:=1;

for i:=1 to 3 do answ:=answ*a[i];

writeln ('Произведение: ',answ);

end.

не тестировала, но вроде должно работать

Ответ:

var a,i,r: integer;

begin

r:=1;

for i:=1 to 3 do

begin

write('Введите ',i,' число ');

readln(a);

r:=r*a

end;

write ('Произведение = ',r);

end.

Объяснение: