Program Volume Tabung

User CRT;

Const Phi  =  3.14 ;

Var

v,r,t      : real ;

Begin

  Writeln ( ' program hitung volume tabung ' ) ;

  writeln ( ' ===================== ' ) ;

  read ( r ) ;

  writeln ( masuk tinggi  tabung = ' ) ;

 read ( t ) ;

 v: = phi * r * r * t ;

 writeln ( ' volume tabung = ' v:2:2 ) ;

 writeln ( ' jadi volume tabung adalah ', v:2:2);

end.