Программа на Паскале...Нахождение произведения четных чисел и суммы нечетных чисел меньше 15...

Предыдущий
вопрос Следующий
вопрос

program calculation;

var
number, product, sum: integer;

begin
product := 1;
sum := 0;

repeat
write('Enter a number: ');
readln(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.