program brainly;
var
  number, counter, summ, mult :integer;
begin
  number := 1;
  mult := 1;
  while number <> 0 do
  begin
    Write('Введите число: ');
    Read(number);
    if number mod 10 = 9 then
      counter += 1;
    if (number > 0) and (number mod 2 = 0) and (number < 125) then
      summ += number;
    if (number mod 10 = 6) and (number mod 4 = 0) then
      mult *= number;
  end;
  WriteLn('Задание 1: ', counter);
  WriteLn('Задание 2: ', summ);
  Write('Задание 3: ', mult);
end.