Program Pascal Mencari Keliling Lingkaran

Nahhh ini adalah salah satu program pascal untuk Mencari Keliling Lingkaran

1. Programnya

Program KelilingLingkaran;
uses crt;
var
   r,keliling : real;
begin
     clrscr;
     Writeln('Program Mencari Keliling Lingkaran');
     Write('Input nilai jari-jari    =');readln(r);
     keliling :=2*3.14*r;
     Write('Nilai Keliling Lingkaran =',keliling:0:0);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program