###### tags: `Pascal Programming D2`
# Circle TB P.11

program circle;
var
radius: integer;
area: real;
begin
write('Input a radius: ');
readln(radius);
area:= 3.14*radius*radius;
writeln('Area = ', area:5:2);
end.