HTRON PASCAL

var r,p,s:real;
begin;
    assign(input,'htron.inp');reset(input);
    assign(output,'htron.out');rewrite(output);
    read(r);
    p:=r*2*3.14;
    s:=r*r*3.14;
    writeln('Chu vi la: ',p:0:2);
    write('Dien tich la: ',s:0:2);
end.