PROGRAM PENGHITUNG VOLUME TABUNG

program P0105;
{ program untuk Menghitung Volume Tabung }
uses winCrt;
var
r, t, volume: real;
begin
     Writeln('Program Menghitung Volume Tabung ');
     Writeln('*********************************');
     Write('Masukkan Jari-jari Tabung : ');
     Readln(r);
     Write('Masukkan tinggi tabung : ');
     Readln(t);
     volume := (22/7) * r * r * t ;
     Writeln('Volume Tabung adalah : ', round(volume));
end.