Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.

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

program evenNumbers;

var
multiplication, number: integer;

begin
multiplication := 1;
number := 10; // заданное число

while multiplication <= number do
begin
for number := 1 to number do
begin
if (number mod 2 = 0) then
begin
Write(number, ' ');
multiplication := multiplication * number;
end;
end;
end;
end.