program CylinderVolume; { Read and print a cylinder volume } var Height, R: real; const p = 3.1415127; begin write('Height:'); readln(Height); write('R:'); readln(R); writeln; writeln('Height:', Height); writeln('R:', R); writeln('Volume:', 2.0 * p * sqr(R) * Height) end.