contoh pascal menghitung volume kerucut

program kerucut;
uses wincrt;
var r,t,v:real;
begin
     writeln('                    =====================================');
     writeln('                    =====*Menghitung Volume kerucut*=====');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan jari-jari kerucut = '); readln(r);
     write('Masukkan tinggi kerucut    = '); readln(t);
     writeln;
     v:=(3.14*r*r*t)/3;
     write('Maka volume kerucut        = ',v:6:2);
     writeln;
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.