, сделать в виде таблицы истинности
F = X И НЕ (Y или Z)
F = X И (Y или Z)

пщояк 17 27 16 33 17

нщёп 15 27 7 17

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!

3 базовых цвета

2 бита - 4 варианта 

4*4*4=64 цвета

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.