program az;
uses Crt;
var n : integer;
P,S : real;
begin
clrscr;
Write('Nhap ban kinh hinh tron :'); readln(n);
CV := n*2*3.14;
S := n*n*3.14;
Write('Dien tich hinh chu nhat la ',S : 4 : 3);
Write('Chu vi hinh chu nhat la : ',CV : 4 : 3);
readln
end.