Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает 26391. паскаль: var x, y, a, b: integer; begin readln(x); a: =0; b: =0; y: =1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a: = a*10 + x mod 10 else begin y: = y*10; b: = b*10 + x mod 10 end; x : = x div 10 end; a: = a*y + b writeln(a); end.

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

Код программы:

var a:integer;

begin

 write('Введите возраст автовладельца: ');

 readln(a);

 if (a > 40) then begin

    writeln('Выберите место эксплуатации:');

    writeln('1. Город');

    writeln('2. Сельская местность');

    readln(a);

    if (a = 1) then begin

       write('Введите стаж: ');

       readln(a);

       if (a > 10) then

         writeln('Страховать')

       else

         writeln('Не страховать')

    end

    else

       writeln('Страховать')

 end

 else begin

    writeln('Езда без аварий?');

    writeln('1. Да');

    writeln('2. Нет');

    readln(a);

    if (a = 1) then

      writeln('Страховать')

    else begin

      writeln('Выберите тип автомобиля:');

    writeln('1. Минивэн');

    writeln('2. Спорткар');

    readln(a);

    if (a = 1) then

      writeln('Страховать')

    else

      writeln('Не страховать')

    end;

 end;

end.

Импликацию часто по-другому называют "Следование".
Т.е. из выражения a следует выражение b.
Основные правила импликации, где 0 - ложь, 1 - истина.
Импликация ложна тогда и только тогда, когда из истины следует ложь. 
А теперь так, как когда-то  объясняли мне:
1) 1->1 = 1 
Из истины следует истина. То есть из истинного факта (а) следует (или же мы делаем) справедливый истинный вывод(b). Все в порядке. Справедливо. Получаем 1 (истину) после операции импикации.

2) 0->1 = 1
Из неправильного высказывания (a) мы делаем правильный вывод(b). С этим тоже все в порядке, множество научных открытий делалось по принципу "из ошибочного суждения - верная теория". Бывает. Справедливо. Получаем истину.

3) 0->0 = 1
Из ложного высказывания (a) - ложные "выводы"(b) , тоже все в порядке. Логично, что из одной "лжи", у нас вторая "ложь". Справедливо. Получаем иситну.

4) 1->0 = 0
Из истинного высказывания (a) получаем ложное высказывание (b). Т.е. мы взяли и переврали истину непонятно как. Нехорошо и не справедливо. Получаем ложь:(

Если остались вопросы, или вообще никак не в комментарии:)