bahasa pemrograman pascal 'menghitung kelilling dan luas lingkaran'

Program Menghitung_Keliling_Dan_Luas_Lingkaran;uses crt;var     K,L:real;        R:integer;const   phi=3.14;Begin
        clrscr;        write('Masukkan jari-jari lingkaran : ');        readln(R);        K:=2*phi*R;        L:=phi*R*R;        clrscr;        Writeln('------------------------------');        writeln('Lingkaran dengan jari-jari =');        writeln(R:8);        writeln('Mempunyai :');        writeln('1. Keliling =',K:10:2);        writeln('2. Luas ='); writeln(L:10:2);        writeln('------------------------------');        readln;End.