1условие : числа х,у имеют разные знаки логическое выражение : (..) и (..) или (..) и (..)
2условие : среди чисел х,у,з нет ни одного, равного Х
логическое выражение : (..) и (..) и (..)
3условие: среди чисел, х,у,з есть хотя бы одно, равное 0
логическое выражение: (..) или (..) или (..)
4условие: среди чисел х,у,з есть хотя бы одно, не равное 0
логическое выражение: (..) или (..) или (..)​

1) Автомобили определенного производителя:
        Имя для обозначения: car
        Нумерация: по году выпуска 
        Тип: строковый

алг Автомобили

строк таб car[2000:2018] 

цел i

нач

для i от 2000 до 2018 шаг 1 повторять 

нц

     вывод (i, "-") 

     ввод (car[I]) 

кц 

кон

2) Оценка с предмета:
        Имя для обозначения: grade
        Нумерация: по дате получения 
        Тип: целый (строковый)

алг Оценки с предмета

цел таб grade[1:30] 

цел i

нач

     i:=1

     пока i<=30, повторять 

     нц

          вывод (i," число- ") 

          ввод (grade[i]) 

          i:=i+1 

кц 

кон

"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?

про пятеричные записи ничего не понял...  :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию

var x,a,b: longint;

begin

   for var i := 999 DownTo 100 do begin

       a := 0;

       b := 1;

       x := i;

       while x>0 do begin

           if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);

           x := x div 5;

       end;

       if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);

   end;

end.

прога проводит расчет для всх трехзначных чисел от 999 до 100

итого мы видим что максимальное подходящее число это 960

при необходимости прогу можно переделать чтобы она находила только максимальное число.