Menghitung Luas Permukaan dan Volume Bola

Buatlah aplikasi untuk menghitung luas permukaan dan volume bola dengan rumus:
L = 4 * Π * r2
V = 4/3 * Π * r 3
r adalah jari-jari lingkaran dan Π adalah sebuah bilangan tetap yang nilainya 3.14.

Jawaban:

program Project1;

const
  phi : real = 3.14;

var
  r, L, V : real;

begin
  write('Masukkan jari-jari bola = ');
  readln(r);
  L := 4 * phi * r * r;
  V := (4/3) * phi * r * r * r;
  writeln('Luas Bola = ', L:2:2);
  writeln('Volume Bola = ', V:2:2);
  readln;
end.