Program Circle;
Var r:integer;
Begin
Writeln('Find The Area Of A Circle');
Write('Radius : ');
Readln(r);
Writeln('Area : ',3.14*r*r:0:2, ' SQ.CM')
End.