Выдать все четные числа от 0 до 10000, если х = 0; иначе выдать x^5 - Free Pascal

Задается значение х. Выдать, все четные числа от 0 до 10000 если х = 0 иначе выдать x^5. Как это представить в виде кода, вообще понять не могу)

Листинг программы

if x=0 then
for i:=2 to 10000 do
if i mod 2=0 then write(i,' ')
else write(x*x*x*x*x);

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Проверка условия x = 0.
Если условие истинно, то выполняется цикл for от i := 2 до 10000 с шагом 1.
Внутри цикла проверяется условие i mod 2 = 0, где mod - операция взятия остатка от деления.
Если условие истинно, то выводится значение i в консоль, предварительно добавив пробел в конце строки.
Если условие ложно, то выводится значение x*x*x*x*x в консоль.
Код завершается.