program CircleArea2;

uses
    WinCRT;

var
   radius: real;
   area: real;
    
begin
     Writeln ('Calculate the radius of a Circle');
     Writeln;
     Write ('Enter a number for the radius: ');
     Readln (radius);
     Writeln ('The radius= ', radius :8:2);
     area:=3.14*radius*radius;
     Writeln ('The area= ', area :8:2);
end.