Максимум .
нужно составить программу на паскале (ниже само ).

если хотя бы два числа из трех введенных чисел положительны, то
уменьшить каждое нечетное число на 1, иначе – найти сумму всех
чисел.

ответ:

var a,b,c,kol: integer;

  begin

    readln(a,b,c);

if a> 0 then inc(kol);

if b> 0 then inc(kol);

if c> 0 then inc(kol);

if kol> =2 then

                      begin

                        if a mod 2=1 then dec(a);

                        if b mod 2=1 then dec(b);

                        if c mod 2=1 then dec(c);

                      end

  else writeln(a+b+c);

end.

объяснение:

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

подвести курсор к элементу удаления 

нажать клавишу backspace.