program pasacal menghitung kerucut

program menghitung_kerucut; uses crt; var r,t,s:real ; procedure menghitung_volume_kerucut; var vol:real; begin vol:=1/3*22/7*r*r*t; writeln('volume:',vol:4:2); end; procedure menghitung_luas; var luas:real ; begin luas:=22/7*r*(r+s); writeln('luas:',luas :2:4); end; begin clrscr ; writeln('menghitung kerucut') ; writeln('masukanjari jari:');readln(r); writeln('masukantinggi:');readln(t); writeln('masukan sisi miring:');readln(s); writeln; menghitung_volume_kerucut; menghitung_luas; readln; end.