Нужно .. три свидетеля падения метеорита сообщили сведения траектории падения. один утверждал, что наблюдал падение красного метеорита в лесной массив, второй - чёрный метеорит упал в озеро, а третий – метеорит был точно не красный, и по все вероятности, что упал в болото. когда удалось отыскать метеорит, выяснилось, что каждый из свидетелей определил правильно лишь один из параметров падения, а в другом ошибся. куда упал метеорит и какого был цвет? 1) метеорит красного цвета 2) лес 3) метеорит черного цвета 4) озеро 5) болото

Метеорит чёрного цвета упал в лесной массив.

#код на ruby 2.2.3p173 def zadanie(s)       numbers = []       s.split(" ").each {|t|               break if t == "2*109"               numbers < < t.to_i       }       max = numbers[0] * numbers[4]       for i in 0..numbers.size - 4               for j in i + 4..numbers.size - 1                       p [i,j]                       m = numbers[i] * numbers[j]                       max = m if m % 2 == 1 and m > max               end       end       if max % 2 == 1               return max       else               return "impossible"       end end # примеры применения p zadanie("11 12 2 5 7 6 10 2 8 3 2*109 4")

1)  var i,d,q: integer; begin d: =1; for q: =5 downto 1 do {можно и for q: =1 to 5 do но у вашем примере идет на спад , я сделал так же} d: =d+q; writeln(q,' ',d); end. 2) var i,d,q: integer; begin d: =1; for q: =4 downto 1 do  d: =d+q; writeln(q,' ',d); end.3)   здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)var i,d,q: integer; begind: =1; q: =1; d: =d+q; writeln(q,' ',d); end.4)   будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)а так как нет изменений то и переработать нельзя в цикл for