Определите формат предоставленных данных. 1 15640 2 USD 56,00 3 10 янв да ПОДПИШУСЬ ПОДПИШУСЬ

// 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
Невозможно построить треугольник

Можно перебрать, или рассчитать с комбинаторики.
Перебор:
159, 519, 591, 195, 915, 951. =>6.
Комбинаторика. Переопределим задачу так: сколько существует перестановок 3х предметов, или сколькими можно расставить три цифры на свои места. ответ 3!=3*2*1=6. 
Можно получить из таких суждений:
На первое место можно выбрать одну из 3х цифр. Всего возможных вариантов выбрать одну из 3х цифр три. 
На второе место можно выбрать уже одну из 2х цифр, т.к. одна уже была поставлена на первое место. Вариантов 2. На последнее место останется какая-то одна цифра. Вариантов 1. Отсюда всех возможных вариантов:
3*2*1