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.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
Это трёхканальная модель цвета.