##
var (p, R, h) := ReadReal3('Введите плотность, радиус и высоту:');
var S := Pi * R ** 2;
var V := S * h;
var m := p * V;
Write('V=', V:0:5, ', m=', m:0:5, ', S=', S:0:5)
