Menghitung Luas dan Keliling Lingkaran

program luas_dan_keliling_lingkaran;
uses crt;
var
K,L,R:real;
const
phi=3.14;
begin
clrscr;
write ('ini adalah program untuk menghitung luas dan keliling lingkaran');
write ('masukkan nilai R: '); readln (R);
L:=phi*R*R;
K:=2*phi*R;
write ('nilai L adalah ', L);
write ('nilai K adalah ', K);
end.