Есть у кого презентация на тему "облачные технологии и их применение"?

Посмотри информацию на метеосайтах

Фотку скинь............................

Ну смотри... Допустим мы берем Артёма. Мы знаем, что каждый из свидетелей дал только 1 правильное указание. Допустим Артем сказал, что машина не черная, и допустим это правильно. Выходит, раз это правильно (то, что машина не черная), то Глеб ошибся с первым показателем (цветом), но был прав со вторым (марка Рино). Следовательно, мы уже точно установили марку машины, разбираемся с цветом. Поскольку Владимир говорит, что машина Тойота, но мы то уже установили, что марка Рино, следовательно он правильно указал цвет. 
Из всего этого следует, что ответ: машина "Renault", серого цвета.  

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

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.