Мішатронік

var r,l,s: real;
begin
 write('radius: ');
 readln(r);
 
 l:= 2*PI*r;
 s:= PI*r*r;
 
 writeln('PI=',PI);
 writeln('circuit: ',l:7:2);
 writeln('square: ',s:7:2);
end.