Cara membuat luas dan keliling lingkaran di pascal

seiring ada tugas di kampus, jadi sekalian aja sharing hehehe...
langsung aja nih,

program luasdankeliling_lingkaran;

uses wincrt;

var luas, keliling : real ;
r : integer ;
const phi = 3.14;

begin
writeln('perhitungan nilai keliling dan luas lingkaran');
writeln;
writeln('--------------------');
write('masukkan nilai jari-jari lingkaran :');readln(r);

keliling:=phi*r*r;
luas:=2*phi*r;

writeln('nilai keliling lingkaran adalah :',keliling:4:2);
writeln('nilai luas lingkaran adalah     :',luas:4:2);
writeln('terima kasih ');
end.

sekian dan terima kasih..