Запиши на Паскале логическое выражение:

a не равно максимуму среди a, b и c

Чтобы запрограммировать данное логическое выражение на языке Паскаль, нужно использовать операторы сравнения и логические операторы.

1. Сначала объявляем переменные a, b и c типа integer:
```Pascal
var
a, b, c: integer;
```

2. Затем просим пользователя ввести значения переменных a, b и c:
```Pascal
writeln('Введите значения переменных a, b и c:');
readln(a, b, c);
```

3. Создаем переменную max, равную максимуму среди значений a, b и c с помощью условного оператора if:
```Pascal
var
max: integer;

if (a >= b) and (a >= c) then
max := a
else if b >= c then
max := b
else
max := c;
```

4. Записываем логическое выражение, сравнивающее a с переменной max:
```Pascal
var
expression: boolean;

expression := a <> max;
```

В результате переменная expression будет содержать значение true, если a не равно максимуму среди a, b и c, и false, если a равно максимуму.

Вот полный код программы на Паскале:

```Pascal
program LogicalExpression;

var
a, b, c: integer;
max: integer;
expression: boolean;

begin
writeln('Введите значения переменных a, b и c:');
readln(a, b, c);

if (a >= b) and (a >= c) then
max := a
else if b >= c then
max := b
else
max := c;

expression := a <> max;

if expression then
writeln('a не равно максимуму среди a, b и c.')
else
writeln('a равно максимуму среди a, b и c.');
end.
```

Теперь при выполнении этой программы компьютер будет запрашивать у пользователя значения переменных a, b и c. Затем он определит максимум из этих значений и сравнит его со значением переменной a. В зависимости от результата сравнения, программа выведет сообщение, указывающее, равно ли a максимуму или нет.