Составьте программу вычисления А(9) произведение элементов, элементы вводить при запуске

Объяснение:

var a, b, c: Real; // ну или Integer, если только целые

d: Real;

begin

Write ('Введите a:'); Readln (a);

Write ('Введите b:'); Readln (b);

Write ('Введите c:'); Readln (c);

d:=a*b*c;

Writeln ('Произведение a*b*c=',d);

end.