Program Pascal Mencari Volume Tabung

Nahhh ini adalah salah satu program pascal untuk Mencari Volume Tabung

1. Programnya

program VolumeTabung;
uses crt;
Var
Radius :Integer;
Tinggi :Integer;
Volume :Real;
Begin
clrscr;
Writeln('program mencari volume tabung');
Write('Input nilai Radius =');readln (Radius);
Write('Input nilai Tinggi =');readln (Tinggi);
volume := 3.14*Radius*Radius*Tinggi;
Writeln('Nilai Volume =',Volume:2:0);
readln;
end.