program tabung;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   r,v,t:real;

begin
     write('volume tabung');readln;
readln;
     write('jari-jari tabung');readln(r);
     write('tinggi segiempat');readln(t);
     V:=3.14*r*r*t;
     write('luas tabung adalah :',V:2:2);readln;
end.