Yazılım Adası

Kod: Tümünü seç

program kure_alan;
uses crt;
var
  r,alan:real;
begin
  clrscr;
  write('Kürenin yarıçapını giriniz :');
  readln(r);
  alan:=4*((22 / 7)*(r*r));
  write(r:12:4,' yarıçaplı kürenin alanı ',alan:12:4,' dır.');
  readkey;
end.