Помогите пожалуйста!!! 1 и 2 номер или хотя бы что-нибудь из этого

1.
a) if (a mod 10 = 5)or(a div 100 = 5) or (a div 10 mod 10 = 5) then write(Yes)
else write(No);
b) if (a mod 10 = a div 100) then write(Yes)
else write(No);
c) if (a mod 10 lt;=a div 10 mod 10 = 5)and (a div 10 mod 10 lt;= a div 100) then write(Yes)
else write(No);