Soru 25: Kürenin hacmini bulan program

 

{Kürenin hacmini bulan program}

program kup_hacim;

uses crt;

var

  r:real;

begin

  clrscr;

  write('Kürenin yarıçapını giriniz :');

  readln(r);

  hacim:=4/3*pi*r*r*r;

  writeln(r,'Yarıçaplı kürenin hacmi ',hacim,' dır.');

  readln

end.