PROGRAM VOLUME TABUNG

program VolumeTabung;
uses crt;
const phi=3.14;
var r,t,V:real;
begin
Clrscr;
        writeln('masukan nilai jari jari: ');
        readln(r);
        writeln('masukan nilai tinggi: ');
        readln(t);
        V:=phi*r*r*t;
        writeln('Volume Tabung adalah ',V);
        readln;
end.