% program to calculate area of a circle
PI := 3.1416;
  
% get input
print("Enter radius of circle: ");
radius := readReal();

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

% output
println("Area  = " + area);