вывести на экран только четные числа сгимилированые случайным образом

vari,j,k:integer;beginrandomize;

k=random(999);

if k mod 2 <> 0 then

k:=k+1;

write(k);end.