13 lines
157 B
Text
13 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;
|
||
|
|
|