program CircleArea;
var
radius, circleArea, thirtyPercent: real;
procedure CalculateArea(r: real; var area: real);
begin
area := 3.14 * r * r;
end;
begin
write('Enter the radius of the circle: ');
readln(radius);
CalculateArea(radius, circleArea);
writeln('The area of the circle is: ', circleArea:0:2);
thirtyPercent := 0.3 * circleArea;
writeln('30% of the circle area is: ', thirtyPercent:0:2);
end.