Question

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

Answer 1

var
i,j,k:integer;
begin
randomize;

k=random(999);

if k mod 2 <> 0 then

k:=k+1;

write(k);
end.