ABCPascal

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