Помогите решить 3,4,5

var a:integer;

begin

readln (a);

if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')

else writeln ('Сумма цифр числа не кратна 6');

if a div 10 gt; a mod 10 then writeln('Цифра 10-ов числа больше числа единиц числа')

else writeln ('Цифра десятков числа меньше числа единиц числа');

if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')

else writeln ('Число не заканчивается цифрой 6')

end.