Program Hitung Volume Tabung

uses crt;
var
r, t : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Tabung ***');
writeln;
writeln('Program untuk menghitung volume tabung');
writeln('*Rumus V = 3.14 x r^2 x t *');
writeln;
writeln;
writeln;
write(' Masukkan besar jari-jari tabung = ');
readln(r);
write(' Masukkan besar tinggi tabung = ');
readln(t);
v := 3.14 * r * r * t;
writeln;
writeln;
writeln('Volume tabung yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.