Ответ:

var a,b:integer;

x:real;

begin

Randomize;

a:= random(-20,20);

if(a mod 2 = 0) then

writeln(a, ' - Чётное')

else

 writeln(a, ' - Нечётное');

end.

Объяснение:

функция рандомайз необходима для получения новых значений, без неё как такового рандома не получится

остальное всё просто, на полученое число приходится остаток от деления, если его нет - число чётное