Петя играет с разноцветными кубиками. у него есть x красных, y зеленых и z синих кубиков. он ставит кубики в ряд один за другим так, чтобы цвета соседних кубиков не совпадали. какое максимальное количество кубиков можно поставить в ряд, с учетом этого условия? написать программу в паскале. заранее .

// 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]> 0 then begin       k+=a[1]*2; a[2]-=a[1]; // пары       end;   if a[2]> 0 then k+=1; // последний   writeln('максимальное количество в ряду равно ',k) end. пример кол-во красных, зеленых и синих кубиков: 8 2 5 максимальное количество в ряду равно 13

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.