program CircleArea;

uses
    WinCRT;

var
   radius: real;
   area: real;
    
begin
     Writeln ('Calculate the radius of a Circle');
     Writeln;
     radius:=10;
     Writeln ('Radius=', radius:8:2);
     area:=3.14*radius*radius;
     Writeln ('The area=', area:8:2);
end.