===== PascalABC.NET =====

begin

 var (R, L) := ReadReal2('Введи радиус и длину:');

 Print('Объем составит ', Pi * R * R * L)

end.