program exmpl; var A,B,C,S: real; begin Writeln ('Ââåäèòå ñòîðîíû A B C'); Readln (A,B,C); S:=A*B*C; Writeln (S) ; End.