12 lines
157 B
Text
12 lines
157 B
Text
% program to calculate area of a circle
|
|
PI := 3.1416;
|
|
|
|
% get input
|
|
radius := input;
|
|
|
|
% calculate area
|
|
area := PI * radius * radius;
|
|
|
|
% output
|
|
print area;
|
|
|