Используя логические операции запишите высказывание истинное при соблюдении условия y не является max(x,y,z)

Var
  x, y, z, max: integer;

begin
  write('Введите x - ');
  readln(x);
  write('Введите y - ');
  readln(y);
  write('Введите z - ');
  readln(z);
  if x >= y then
    max := x
  else
    max := y;
  if z > max then
    max := z;
  if y <> max then writeln('Высказывание истинное')   
  else writeln('Высказывание ложное');
end.

(y<x) ∨ (y<z)

Объяснение. Если y меньше хотя бы одной из прочих величин (операция "ИЛИ"), то он не является максимумом.