Используя логические операции запишите выражение правильное при соблюдении условия Y не

Var
  x, y, z, max: integer;

begin
  write('Введите x - ');
  readln(x);
  write('Введите y - ');
  readln(y);
  write('Введите z - ');
  readln(z);
  if x gt;= y then
    max := x
  else
    max := y;
  if z gt; max then
    max := z;
  if y lt;gt; max then writeln('Выражение правильное')   
  else writeln('Высказывание фальшивое');
end.

(ylt;x) (ylt;z)

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