uses crt;
var
r,pi,cevre,alan:real;
 
Procedure daire; (*a*)
Begin
 alan:=pi*r*r;
 cevre:=2*pi*r;
 writeln('Daire alani : ',alan);
 writeln('Daire cevre : ',cevre);
end;
 
Procedure daire2(r1:real); (*b*)
Begin
 alan:=pi*r1*r1;
 cevre:=2*pi*r1;
 writeln('Daire2 alani : ',alan);
 writeln('Daire2 cevre : ',cevre);
end;
 
Procedure daire3(var alan,cevre:real); (*c*)
Begin
 alan:=pi*r*r;
 cevre:=2*pi*r;
end;
 
Begin
writeln('Daire alan/cevre hesabi icin yaricapi giriniz : ..');
readln(r);
pi:=3.14;
daire;
alan:=0; cevre:=0;
daire2(r);
alan:=0;
cevre:=0;
daire3(alan,cevre);
writeln('Daire2 alani : ',alan);
writeln('Daire2 cevre : ',cevre);
readln;
End.