Program P33;
 { Lungimea şi aria cercului }
const Pi=3.14;
var l, s , r :real;
begin
 writeln('Introduceţi raza r:');
 readln(r);
 l:=2*Pi*r;
 writeln('Lungimea l=', l);
 s:=Pi*r*r;
 writeln('Aria s=', s);
end.