load('data.mat', 'ABCD')

if isnumeric(ABCD)
  [r, s] = size(ABCD);
  switch r*s
    case 1
      disp(['ABCD je cislo: ', num2str(ABCD)])
    case max([r, s])
      disp(['ABCD je vektor ', num2str(r), ' x ', num2str(s), ': '])
			disp(ABCD)
    otherwise 
      disp(['ABCD je matice ', num2str(r), ' x ', num2str(s), ': '])
			disp(ABCD)
    end
elseif ischar(ABCD)
	disp(char('ABCD je text: ', ABCD))
  pocet = length(ABCD) - sum(isstrprop(ABCD, 'wspace'));
  disp(['ABCD obsahuje ', num2str(pocet), ' znaku kroem mezer.'])
end