uses
  WinCrt;

  const
  phi= 3.14;

  var
  luas: real;
  d:real;

begin
  Writeln('masukkan diameter');
  read (d);
  writeln('-------------------------=');
  luas:=phi*(d/2)*(d/2);
writeln ('ini luasnya:',luas:4:2);

end.