program calculation;

var
number, product, sum: integer;

begin
product := 1;
sum := 0;

repeat
write('Enter a number: ');
readln(number);

if (number mod 2 = 0) then
product := product * number
else
sum := sum + number;

until sum >= 15;

writeln('The product of even numbers is: ', product);
writeln('The sum of odd numbers less than 15 is: ', sum);

readln;
end.