Саша живёт на улице, вдоль которой расположены N домов. Так случилось, что его дом — единственный дом без магазина. В остальных домах есть ровно один магазин ровно одного из K типов. Саша хочет что-то купить в магазине каждого типа, поэтому он ищет маршрут по улице, который начнётся и закончится у его дома, а по пути пройдёт через все K типов магазинов хотя бы по разу.
Маршрут должен представлять из себя такую последовательность домов на Сашиной улице, что любые два соседних пункта маршрута являются соседними домами на улице. Длиной такого маршрута будем называть количество перемещений между соседними домами.
Найдите наименьшую возможную длину такого маршрута

Компилятор — это программа, превращающая исходный текст, написанный на языке программирования, в машинные инструкции.

По мере преобразования текста программы в машинный код, компилятор может обнаруживать ошибки (синтаксиса языка, например). Поэтому все проблемы забытых точек с запятыми, забытых скобок, ошибок в названиях функций и переменных в данном случае решаются на этапе компиляции.



При компиляции весь исходный программный код (тот, который пишет программист) сразу переводится в машинный. Создается так называемый отдельный исполняемый файл, который никак не связан с исходным кодом. Выполнение исполняемого файла обеспечивается операционной системой. То есть образуется, например, .EXE файл.

Примеры компилируемых языков: C, C++, Pascal, Delphi.

Program Project1;
const
  eps = 1e-10;
var
  a:array [1..3] of Real;
  i: integer;
  max: Real;
  max_i: integer;
  sqr_h: Real;
  sqr_k: Real;
  sp: Real;
begin
  Write('Введите длину сторон треугольника: ');
  Readln(a[1],a[2],a[3]);
  max:=a[1];
  max_i:=1;
  for i := 2 to 3 do
    if a[i]>max then
    begin
      max:=a[i];
      max_i:=i;
    end;
  sqr_k := 0;
  for i:=1 to 3 do
    if i<>max_i then
      sqr_k:=sqr_k+sqr(a[i]);
  sqr_h:=Sqr(max);
  if (Abs(sqr_k-sqr_h)<eps) then
  begin
    Writeln('Треугольник прямоугольный');
    sp:=1;
    for I := 1 to 3 do
      if i<>max_i then
        sp:=sp*a[i];
   sp:=sp/2;
    Writeln('Площадь треугольника = ',sp:0:5);
  end
  else
  begin
    Writeln('Треугольник не прямоугольный');
    sp:=0;
    for I := 1 to 3 do
      sp:=sp+a[i];  
    Writeln('Периметр треугольника = ',sp:0:5);
  end;
  Readln;
end.