Нет смысла писать 2 раза X. Достаточно написать всего 1.
Ответ: X&1
Var
n,x:integer;
a,b,c:byte;
Begin
read (n);
c:=n div 100 mod 10;
b:=n div 10 mod 10;
a:=n div 1 mod 10;
x:=100*a+10*b+1*c;
write (x);
<span>end.</span>
не понял задания. если придумать цепочку рассуждений оканчивающую на 5, то
35-30-25-20-15-10-5. - табл умножения
1-2-3-4-5. - счет от единицы