Программа и пример её работы - в прилагаемом файле.
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
Ответ:
создаешь переменную допустим а = 1001
запускаешь цикл на проверку элементов массива и в цикле условие
если массив[i] >=0 и массив[i] mod 10 <> 3 и mass[i]<a то а = массив[i]
конец цикла
а потом после цикла условие если а = 1001 то вывожишь Не найдено
иначе
выводишь а