Program Luas & Keliling Lingkaran

Program LuasKelilingLingkaran;

uses wincrt;

const

phi=3.14;

var

   r: integer;

   K,L:real;

begin

     writeln('MENGHITUNG KELILING LINGKARAN');

     WRITELN;

     write('masukkan nilai Jari-jari Lingkaran : ');readln(r);

     K:=2*phi*r;

     L:=phi*r*r;

     writeln;

     write('keliling lingkaran = ',K:0:0);

     writeln;

     write('Luas lingkaran = ',L:0:0);

     writeln;

end.