Menghitung Luas dan keliling lingkaran

Waktu ini ada seorang teman yang katanya dia lagi belajar turbo pascal..
Program ini penulis buat pada waktu lagi belajar pascal..Semoga yang lagi belajar Pascal bisa cpet ngerti he2...

Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin

clrscr;
writeln('=============================');
writeln('Menghitung Luas dan Keliling');
writeln('----------------------------');
write('Jari - jari = '); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln('Keliling Lingkaran = ',K:5:2);
writeln('Luas Lingkaran = ',L:5:2);
writeln('=============================');
readln;
end.

Klo ada yg belum dimengerti langsung j kasi komen...
:)