var
S, a, b, c: real;
begin
writeln ('Введите числа');
readln (a);
readln (b);
readln (c);
S:= a*b*c;
writeln ('Ответ=',S);
readln;
end.