Петя играет с разноцветными кубиками. У него есть x бардовых, y

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadArrInteger('Кол-во бардовых, зеленых и синих кубиков:',3);
  a.Sort;
  var k:=a[0]*3; a[1]-=a[0]; a[2]-=a[0]; // тройки
  if a[1]gt;0 then begin
    k+=a[1]*2; a[2]-=a[1]; // пары
    end;
  if a[2]gt;0 then k+=1; // последний
  Writeln('Наибольшее количество в ряду равно ',k)
end.

Пример
Кол-во бардовых, зеленоватых и синих кубиков: 8 2 5
Наибольшее количество в ряду равно 13