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

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

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

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

1) var a, b:integer;

begin

readln (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;

begin

readln (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;

begin

readln (a);

c:=a;

while a>0 do begin

b:=10*b+a mod 10;

a:=a div 10;

end;

writeln (c-b);

end.