code pascal menghitung lingkaran

program menghitunglingkaran;
uses crt;
var
   r : real;
   luas,kll : real;
begin
TextBackground(26);
TextColor(9 + 128);
writeln('------------------------------------------');
   writeln('Program Menghitung Luas & Keliling Lingkaran');
   writeln('----------________________________----------');
   TextColor(3 + 128);
   TextBackground(4);
   writeln    ('      by:mwildan');
   write('Masukkan  nilai jari-jari = ');readln(r);
   writeln;
luas := 3.14*r*r;
kll := 2*3.14*r;
   writeln('Luas      = ',luas:3:2);
   writeln('Keliling  = ',kll:3:2);
   writeln;
   readln;
end.