program ukol3;

const
     spotreba=10;
var
   n:integer;
   d,v:real;

begin
     write('Zadejte prumer nadrze v metrech [m]: ');
     readln(d);

     write('Zadejte pocet osadniku: ');
     readln(n);

     writeln('-------------------------------------');
     writeln;

     v:=1/6*pi*d*d*d;

     writeln('Nadrz o objemu ',v:2:2,' metru krychlovych,');
     writeln('presneji ',(v*1000):2:0,' litru, vystaci ',n,' osadnikum');
     write('na ',((v*1000)/(n*spotreba)):0:0,' dnu');
     writeln(' pri spotrebe ',spotreba,' litru na osobu a den');
end.