uses: CRT;
var Num : LongInt; // вводимое число
    Key : Char;    // обработчик нажатия кнопок
    Sum, Mult      : LongInt; // сумма и произведение
    isNechet       : Boolean; // флаг, вводились ли нечётные
begin
Sum:=0;
Mult:=1;
isNechet:=False; //нечётные ещё не вводились
repeat
  ClrScr;
  Write ('Введите число: ');
  Readln (Num);
  if (Num mod 2)=0    // отстаток от деления на 2
   then Sum:=Sum+Num  // если чётное - плюсуем
   else
    begin
     isNechet:=True;   // если нечётное - ставим флаг, что хоть одно нечётное введено
     Mult:=Mult*Num;  // если нечётное - умножаем
    end;    
  Writeln ('Сумма чётных чисел: ', Sum);
  if isNechet=True
   then Writeln ('Произведение нечётных чисел: ', Mult)
   else Writeln ('Нечётных чисел введено ещё не было');
  Writeln ('Нажмите любую клавишу для продолжения или Esc для завершения');
  Key:=Readkey; // ждём нажатия клавиши
until Key=#27; // пока не нажат Esc. 27 - ASCII код Escape
end;