program luas_lingkaran;
uses crt;
{charles}
var
   r,L,phi : real;
begin
     clrscr;
       textcolor(yellow);
                  writeln('┌────────────────────────────────┐ ');
       textcolor(lightred);
                  writeln('│   MENGHITUNG LUAS LINGKARAN    │ ');
       textcolor(yellow);
                  writeln('└────────────────────────────────┘ ');
       textcolor(green);
                  write ('Inputkan nilai jari-jari lingkaran : ');
                  readln(r);
                            phi:=3.14;
                            L:= phi * r * r;
       textcolor(lightgreen);

       write ('Luas lingkarannya adalah : ');
       textcolor(red+blink);
       write (L:8:2);
       textcolor(lightgreen);
       write (' satuan luas.');
readln;
end.