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.
Объяснение:
