program obsah_kruhu;
uses crt;
const pi=3.14;
var Polomer, Obsah: real;
begin
  writeln('Zadaj polomer kruhu');
  readln(Polomer);
  Obsah:=pi*sqr(Polomer);
  writeln('Obsah kruhu je ',Obsah:6:2);
  readln;
end.