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

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