Program Hitung Volume Kerucut

uses crt;
var
r,t:byte;
v:real;
begin
clrscr;
writeln(***************************proram hitung volume kerucut**********************);
writeln(* *);
writeln(*program ini bertujuan unuk menghitung volume kerucut*);
writeln(*dengan rumus v=1/3*3.14*r^2*t*);
writeln(* *);
writeln('*********************************************');
writeln;
write('masukan jari-jari kerucut=');
readln(r);
write('masukan tinggi kerucuk=');
readln(t);
v:=1/3*3.14*r*r*t;
writeln;
**********************');
writeln('**);
writeln('*program ini bertujuan untuk menghitung volume kerucut*');
writeln('*dengan rumus v=1/3*3.14*r^2*t*');
writeln('**);
writeln('
**********************************************************************************
*****');
writeln;
write('masukan jari-jari kerucut=');
readln(r);
write('masukan tinggi kerucu=');
readln(t)'
v:=1/3*3.14*r*r*t;
writeln;
writeln;
writeln('***volune kerucut yang dimaksud=',v:6:2,'****');
writeln;
writeln;
writeln;
writeln;
readln;
end.