Программы в Кубесике. -Заданы два натуральных. числа. Определить, является ли среднее арифметическое этих чисел целым числом -На ввод номера месяца программа должна печатать, к какому времени года этот месяц относится.

Задача 1CLSINPUT "Введите первое число: ", aINPUT "Введите второе число: ", bc = (a + b) / 2IF INT(c) = c THEN   PRINT "Среднее является целочисленным"ELSE   PRINT "Среднее не является целочисленным"END IFТестовое решение:Введите первое число: 18Введите второе число: 152Среднее является целочисленнымЗадача 2DIM n AS INTEGERCLSINPUT "Введите номер месяца: ", nSELECT CASE nCASE 1, 2, 12: PRINT "Зима"CASE 3 TO 5: PRINT "Весна"CASE 6 TO 8: PRINT "Лето"CASE ELSE: PRINT "Осень"END SELECTТестовое решение:Введите номер месяца: 7Лето