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.