Program P99;
 { Declararea şi utilizarea procedurii Lac }
var a, b, c,
       t, q : real;

procedure Lac(r : real; var l, s : real);
 { lungimea şi aria cercului        }
 { r - raza; l - lungimea; s - aria }
const Pi=3.14159;
begin
 l:=2*Pi*r;
 s:=Pi*sqr(r);
end; { Lac }

begin
 a:=1.0;
 Lac(a, b, c);
 writeln(a:10:5, b:10:5, c:10:5);

 Lac(3.0, t, q);
 writeln(3.0:10:5, t:10:5, q:10:5);

 readln;
end.