У тебя условие " если Х делится на 3 без остатка, то "да"" правильный ответ: 2 и 3
И ещё: программа у тебя записана не верно. тебе надо заменить readeln(x); на readln(x); и writeln ("Да") все буквы, которые хочешь вывести надо писать в одинарных ковычках ' ' , из этого следует что это надо заменить на writeln ('
Да')