abc Паскаль

var

a,b,c:integer;

P:real;

begin

writeIn('Vvedite chisla');

readIn(a);

readIn(b);

readIn(c);

P:=a*b*c

writeIn('Otvet=',P);

readIn;

end