101011, 10 в десядичную систему счисления

Program zic; var a,b,c,d,e: integer; begin writeln('введите 5 чисел'); readln(a,b,c,d,e); if (a> 0) and (b> 0) and (c> 0) and (d> 0) and (e> 0) then write('',ваши числа положительные) else if a> 0 and b> 0 and c> 0 and d> 0 and e< 0 then write('',все ваши числа положительные кроме числа e) else if a> 0 and b> 0 and c> 0 and d< 0 and e> 0 then write('',все ваши числа положительные кроме числа d) else if a> 0 and b> 0 and c< 0 and d> 0 and e> 0 then write('',все ваши числа положительные кроме числа c) else if a> 0 and b< 0 and c> 0 and d> 0 and e> 0 then write('',все ваши числа положительные кроме числа b) else if a< 0 and b> 0 and c> 0 and d> 0 and e> 0 then write('',все ваши числа положительные кроме числа a) else if a> 0 and b> 0 and c> 0 and d< 0 and e< 0 then write('',все ваши числа положительные кроме числа d и e) else if a> 0 and b> 0 and c< 0 and d> 0 and e< 0 then write('',все ваши числа положительные кроме числа c и e) else дальше просто меняеш знаки и числа. концовка такая if a< 0 and b< 0 and c< 0 and d< 0 and e< 0 then write('',все ваши числа   отрицатильные); end. p.s. все эти с< 0 и т.д. поставь в скобки

Program sum; var   chislo: longint; {число, введенное с клавиатуры}   tchifra, summa, n, p: integer; {tchifra - правая цифра} begin   write('введи число: ');   readln(chislo);   summa : = 0; n : = 0; p : = 1;   repeat       tchifra : = chislo mod 10; {получили правую цифру}       inc(n);       if tchifra > 0 then p : = p * tchifra;       if tchifra < 3 then summa : = summa + tchifra;       chislo : = chislo div 10{оставили от числа левую часть}   until chislo = 0; {выход из цикла, если нет больше цифр}   writeln('количество цифр в числе- ', n);   writeln('сумма цифр, меньших 3- ', summa);   writeln('произведение цифр, больших нуля- ', p);   readln end. тестовое решение: введи число: 10354 количество цифр в числе- 5 сумма цифр, меньших 3- 1 произведение цифр, больших нуля- 60