y:= x div 10; Здесь нужно брать последнюю цифру числа, а не делить на 10. Правильно будет y := x mod 10;if y mod 2 <> 0 then Условие должно проверять, является ли цифра четной, а не нечетной. Правильно будет if y mod 2 = 0 thenОтвет: 7, 8
У тебя отлично получается! Не останавливайся на достигнутом, и все обязательно получится!