Помогите решить задачу в PascalABC

1)Даны два числа. Найти сумму их десятков и сумму их единиц.

2)Дано число. Проверить, делится ли оно на 2, на 3 или на 5.

3)Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке.

1) var a,b:integer;beginreadln(a,b);writeln('Сумма единиц: ',a mod 10+b mod 10);writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);end.2)var a:integer;beginreadln(a);if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');end.3)var a,b,c:integer;beginreadln(a);c:=a;while a>0 do begin  b:=10*b+a mod 10;  a:=a div 10;end;writeln(c-b);end.