Так как в задании целевой язык не указан, написал на C#.

Пример работы на рисунке 1.

Предусмотрена обработка ошибок ввода.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace Задания43

{

   class Program

   {

       static void Main(string[] args)

       {

           //Задание 1

           double A, B, C;

           Console.WriteLine("Введите 3 стороны:");

           try

           {

               Console.Write("A = "); A = double.Parse(Console.ReadLine());

               Console.Write("B = "); B = double.Parse(Console.ReadLine());

               Console.Write("C = "); C = double.Parse(Console.ReadLine());

           } catch

           {

               Console.WriteLine("Ошибка ввода");

               return;

           }

           Console.WriteLine();

           double S, h;

           if(A == B && B == C) // Проверка на равносторонность

           {

               S = A * A * Math.Sqrt(3) / 4.0;

               h = A * Math.Sqrt(3 / 4.0);

               Console.WriteLine("Треугольник со стороной равной {0} имеет площадь S = {1} и высоту h = {2}", A, S, h);

           } else

           {

               Console.WriteLine("Треугольник НЕ равносторонний!");

           }

           Console.WriteLine();

           //Задание 2

           Console.Write("Введите номер месяца: ");

           if(!int.TryParse(Console.ReadLine(), out int N))

           {

               Console.WriteLine("Ошибка ввода");

           }

           string message;

           switch (N)

           {

               case 12:

               case 1:

               case 2:

                   message = "ЗИМА";

                   break;

               case 3:

               case 4:

               case 5:

                   message = "ВЕСНА";

                   break;

               case 6:

               case 7:

               case 8:

                   message = "ЛЕТО";

                   break;

               case 9:

               case 10:

               case 11:

                   message = "ОСЕНЬ";

                   break;

               default:

                   message = "ОШИБКА";

                   break;

           }

           Console.WriteLine(message);

       }

   }

}

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

Задание №1

begin

 var (a, b, c) := ReadReal3('Длины сторон через пробел:');

 if (a = b) and (a = c) then

   $'S = {a*a*Sqrt(3)/4,0:f5}, h = {a*Sqrt(3/4),0:f5}'.Println

 else Println('Треугольник неравносторонний')

end.

Задание №2

begin

 case ReadInteger('Введите номер месяца') of

   1, 2, 12: Println('Зима');

   3..5: Println('Весна');

   6..8: Println('Лето');

   9..11: Println('Осень');

 else Println('Ошибка')

 end

end.