program keliling_lingkaran;
uses crt;

var
r,K,phi : real;
begin
clrscr;
textcolor (yellow);
          writeln('MENGHITUNG KELILING LINGKARAN');
textcolor (13);
          writeln('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
textcolor (green);
          write ('Inputkan nilai jari-jari lingkaran : ');
          readln(r);

          phi:=3.14;
          K:= 2 * phi * r ;

textcolor (lightgreen);
          write ('Keliling lingkarannya adalah : ');
textbackground(blue);
textcolor (white+blink);
          write (K:8:2 );
textcolor (lightgreen);
textbackground(black);
          writeln (' satuan keliling.');
          textcolor(red+blink);
          write ('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß ');

readln;
end.