Program Luas Lingkaran | Delphi 7 Console

Ini dibuat hanya sebagai pengingat aja buat saya biar ga lupa..:) Tapi buat teman2 yg mau menyimak juga boleh, sharing aja dan mohon masukkannya

Judul Program

program luas_lingkaran;

Deklarasi

const phi=3.14;
   var r,luas:real;

Deskripsi

  write('Masukkan Nilai jari-jari(r) = '); readln(r);
  writeln;
  writeln('......................');
  writeln;
  writeln('Rumus = Phi * r * r');
  writeln;
  writeln('......................');
  writeln;
  luas:=phi*r*r;
  write('Tekan Enter Untuk Melihat Hasil'); readln;
  writeln;
  writeln;
  write('Luas Lingkaran = '); write(luas:2:2);
  writeln;
  writeln;
  writeln;
  writeln;
  write('..........Program Uji Coba 1206700068..........');
  readln; end.

Semoga Bermanfa'at