Помогите пожалуйста упрашиваю 1 и 2 написать метод помогите пожалуйста умоляю

1)

var

 a, c, e: integer;

begin

 write('введите число - ');

 read(a);

 while abs(a) gt; 0 do

 begin

   if (a mod 10) mod 2 = 0 then c := c + 1 else e := e + 1;

   a := a div 10;

 end;

 writeln('четных цифр в цисле - ', c);

 write('нечетных цифр в цисле - ', e);

end.

2)

var

 a, c: integer;

begin

 write('введите число - ');

 read(a);

 c := a mod 10;

 repeat

   a := a div 10;

 until a lt; 10;

 writeln('сумма первой и последней цифр числа одинакова - ', a + c);

end.