Написать программу(на abc pascal), которая находит сумму четных цифр и произведение нечетных чисел в диапазоне от 1 до 10.

Как-то так, если синтаксис помню:
sum := 0;
mul := 1;
for index := 1 to 10 do
begin
  if (index mod 2 = 0) then
  begin
    sum := sum + index;
  end;
  else
  begin
    mul := mul * index;
  end;
end;