Паскаль var m, k, i; integer; mas; array [1..10] of integer; begin mas[1]: =14; mas[2]: =-4; mas[3]=12; mas [4]: =-6; mas[5]: =8; mas[6]: =-10; mas[7]: =-8; mas[8]: =-9; mas[9]: =6; mas[10]: =-5; m: =0; k: =0 for i: =1 to 10 do if (mas[i]< 0) and (i mod 2=0) then k: =k+mas if mas[i]< 10 then m: =m+mas[i] write(m+k) end.

А что сделать надо? Исправить код? Держи. Вроде так.

var m, k, i; integer;
mas; array [1..10] of integer;
begin
mas[1]:=14; mas[2]:=-4; mas[3]=12;
mas [4]:=-6; mas[5]:=8; mas[6]:=-10; mas[7]:=-8; mas[8]:=-9; mas[9]:=6; mas[10]:=-5;
m:=0; k:=0
for i:=1 to 10 do
if (mas[i]<0) and (i mod 2=0) then k:=k+mas
if mas[i]<10 then m:=m+mas[i]
write(m)+(k)
end.

Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.

А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.

Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".

1)
2 Мбайта =2*2^(23) бита ;        16=2^4;
2*2^(23)  :  2^4 = 2^(20) =1048576 символов в сообщении
2)
3*40*60=7200 количество символов
14400*2^3  : 7200 = 16 бит для одного символа
3)
10 кбайт =10*2^13 бит =5*2^14 бит
8*32*40 =2^3 * 2^5 *2^3 *5 =5*2^11
(5*2^14) : (5*2^11) = 2^3 =8 бит для одного символа
2^8 =256 допустимых символов в алфавите
4)
2*32*40 =2* 2^5* 2^3* 5 =5*2^9 символов на листе, на двух страницах
8 Кбайт =8*2^13 бит =2^16 бит
     2^16 :2^3 =2^13 символов в тексте
2^13 : (5*2^9)=2^4 : 5 =3,2 = 4 листа