Contoh Program Keliling Lingkaran (TurboPascal)

Welcome
TURBO PASCAL

Programnya :

Program keliling;
Uses crt;
Var
r,KLL:Real;
Begin
Clrscr;
Writeln ('menghitung keliling lingkaran');
Writeln ('_______________________');
write ('masukan nilai jari-jari :');Readln(r);
kll:=2*3.14*r;
Write ('keliling=',kll:5);
Readkey;
End.