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

Question

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

Answer 1

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.