clear all;
zeichen = { 'A', 'MA', 'M', 'CM', 'D', 'CD', 'C', 'XC', 'L', 'XL', 'X', 'IX', 'V', 'IV', 'I'};
zahlen = [ 5000, 4000, 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 ];

dez=input('Geben sie eine Zahl zwischen 0 und 1000 ein: ' );
roem=[];
i=1;

while dez>0

   if dez/zahlen(i) >= 1
      roem=[roem zeichen{i}];
      dez=dez-zahlen(i);
   else
      i=i+1;
   end

end
disp('Römische Ziffer:');
disp(roem);