---
# System prepended metadata

title: Circle TB P.11
tags: [Pascal Programming D2]

---

###### 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.