//Лаб 2 задача 1
 //Выведите все четные числа от 100 до 1, предварительно возведя их в квадрат и прибавив число пользователя.

open System

//Перегрузили оператор. Теперь возведение в квадрат обозначается знаком ^!
let (^!) (a : int) = a * a
//Цикл, в котором перебираем 100 элементов и возводим их в квадрат с прбиавлением числа 9. Цикл вниз, поэтому downto
for i = 100 downto 1 do
    //Здесь происходит вывод и вычисление нашего выражения
    printf "Квдарта числа %d + 9 - %d \n" i ((^!) (i) + 9)

Console.ReadLine()