% program to calculate area of a circle
PI := 3.1416;
  
% get input
radius := input;

% calculate area
area := PI * radius * radius;

% output
print area;