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