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.