Program Hitung Volume Tabung

uses crt;
var
r,t:byte;
v:real;
begin
clrscr;
writeln('*********program hitung volume tabung********');
writeln('***');
writeln('*program ini bertujuan untuk menghitung volume tabung*');
writeln('*dari masukan dengan rumus v=3.14*r^2*t*');
writeln('***');
writeln('*******************************');
writeln;
write('masukan besar jari-jari tabung=');
readln(r);
write('masukan besar tinggi tabung=');
readln(t);
v:=3.14*r*r*t;
writeln;
writeln;
writeln('***volume abung yang dimaksud=',v:6:2,'****');
writeln;
writeln;
writeln;
writeln;
readln;
end.