1)
var
a, c, e: integer;
begin
write('введите число - ');
read(a);
while abs(a) > 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 < 10;
writeln('сумма первой и последней цифр числа равна - ', a + c);
end.