function obsah(r)
% obsah kruhu
if (r>0)
   S=pi.*r.*r;
   disp('Obsah:')
   disp(S);
else
   disp('r musi byt kladne')
end
