Выполните перевод б)1110000³->?¹⁰
д)909¹⁰->?⁹
з)13021⁴->?⁹
б)1110000²->?⁸
д)707⁸- >
б)1110001110²->?¹⁶
д)90DED¹⁶->?²​

// PascalABC.NET 3.0, сборка 1076
var
  a,b,c,p,s:real;
begin
  Writeln('Введите через пробел стороны треугольника: ');
  Read(a,b,c);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('Площадь треугольника равна ',s)
    end
  else Writeln('Невозможно построить треугольник')
end.
 
Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641

Введите через пробел стороны треугольника:
5 8 20.4
Невозможно построить треугольник

Const int neededInputs = 8;
try
{
    int counterNegativeNumbers = 0;
    int counterInLoop = 0;
    while (counterInLoop < neededInputs)
    {
        Console.WriteLine("Type a number, please ");
        int number = Int32.Parse(Console.ReadLine());
        if(number < 1)
            counterNegativeNumbers++; 
        counterInLoop++;
    }

    Console.WriteLine(String.Format("You`ve written {0} negative or zero numbers", counterNegativeNumbers));
}
catch(FormatException ex)
{
    Console.WriteLine("Invalid format of the number");
}