//Лаб 4 задача 1
//При помощи функции List.iter – выведите список четных элементов списка. Предварительно удалите в списке все элементы кратные 7.

open System

//Создать список из 100 элементов от 1 до 100
let list = [1..100]

//Отфильтровать список и на основе него создать другой. Фильтруем из условия задачи. Предварительно удалите в списке все элементы кратные 7.
let filterList = List.filter(fun x -> x % 7 <> 0 ) list

//Получили новый список из элементов не кратных 7. Теперь с помощью iter выводим только список тех элементов, которые чётные
List.iter (fun x -> if x % 2 = 0 then printfn "List.iter: element is %d" x) filterList
Console.ReadLine()