100 балов Помогите,срочно

Question

100 балов
Помогите,срочно

---

Answer 1

begin

 var a := Seq(15, 16, 17, 18);

 foreach var x in a do

   if (x + 24) > 40 then

     Print(x)//17 и 18 будут выведены

end.

Comments

тьфу ты, 17 и 18 конечно же

---

решение написано на PascalABC.NET

---

агась

---

я тож чекнул

---

Божечки, то это¿ ∆----∆