Verified answer

pascalabc.net

begin

   var sum : integer;//объявляем

   for var i := 15 to 100 do //пробегаемся по всему диапазону

       if i mod 2 = 0 then //елси число из диапазона четное, добавляем к сумме

           sum += i;

   println(sum);//выводим

end.