circle.pas

program circle;

uses crt;

const PHI = 3.14;
var r, a, c : real;

begin
 writeln('RMD Gol B');
 writeln('G41171082 / Nur Diana Alifiah');

 writeln('Enter r : ');
 readln(r);

 a := PHI * r * r;
 c := 2 * PHI * r;

 writeln('Area : ', a:7:2);
 writeln('Circumference : ', c:7:2);

 readkey;
end.