membuat program lingkaran mengunakan Pascal

Assaalammualaykum wr.wb

saya ingin share bagai mana cara membuat program menghitung keliling lingkaran menggunakan prosedur di dalam bahasa pascal

Program Keliling_Lingkaran;

Uses crt;

const phi = 3.14;

Var

   r, Kell : real;

 Procedure

         Hitung_Kell_Lingkaran;

 Begin

     clrscr;

     write('Input Jari-jari : ');readln(r);

     Kell := 2 * phi * r;

     writeln('Keliling Lingkaran = ',Kell:0:2)

 end;

Begin

     writeln('Program Hitung Keliling Lingkaran');

     writeln('=================================');

     writeln;

     Hitung_Kell_Lingkaran;

     readln;

End.

selamat mencoba ....