Mmdddccxcvi перевод из римской в десятичную

M-1000
D-500
C-100
X-10
V-5
I-1

MMMDCCXCVI =
= MMDDDCCXCVI =
= 1000+1000+500+500+500+100+100+(100-10)+5+1=3796

ответ: 3796

Вопрос поставлен не корректно. Сам тип файла никак влиять на нарушение авторского права не может.
Авторское право можно нарушить используя либо программы и приложения типа Commercialware  не приобретая на них лицензию, а использую пиратские версии, либо скачивая в сети интернет информацию, защищенную авторским правом и распространяемую без согласия автора, и нарушая действующее законодательство.

В целом все очень просто : используйте ПО имеющее лицензию Freeware или покупайте лицензию на платное ПО (сам например пользуюсь только Freeware ПО - вместо Microsoft Office использую OpenOffice, вместо Adobe Reader использую FoxitReader, вместо Winrar использую 7Zip и так далее..., а Windows 7 лицензия предустановленная фирмой). 
Что касается мультимедийной информации - не качайте пиратки с торрентов, а покупайте лицензионные диски (нужно же как-то отблагодарить создателей любимого вашего фильма или любимого исполнителя музыки). Тогда ничего нарушать и не будете.

Const n=10;
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
 begin Write('Введите элемент' ,i,': '); Read(a[i]);
 end; 
 min:=a[1];
 for i:=1 to n do
 Begin 
 if a[i]<min then
 begin 
min:=a[i]; 
 end; 
end; 
Writeln('min:',min); 
  max:=a[1];
 for i:=1 to n do
 Begin 
If a[i]>max then 
 begin  max:=a[i]; 
end; 
 end; 
Writeln('max: ',max);  
summa := 0 ;  
  for i:=1 to n do 
begin
if (a[i] mod 2 = 0) then summa := summa + a[i] 
 end; 
  writeln('Сумма четных элементов равна : ', summa); 
  readln;
end.