Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел

Отредактируем программу так, чтобы программа сама перебирала значения x, а потом нашла среди них минимальное:

var x, L, M, j, y: longint;

xarr: array[1..100] of integer;

begin

for x := -10000000 to 10000000 do begin

y := x;

while y > 0 do begin

L := L + 1;

if (M < y) and (y mod 2 = 1) then M := (y mod 10) * 2;

y := y div 10;

end;

if (L = 3) and (M = 10) then begin j := j + 1; xarr[j] := y; end;

end;

writeln(xarr[1]);

end.

На промежутке x=[-10000000; 10000000] нет чисел, которые бы удовлетворяли заданному условию.