Зрительная, так как только её нельзя написать..
program p1;
var
a1, a2, a3, max: integer;
BEGIN
writeln ('Vvedite 3 chisla cherez probel i nazhmite probel');
readln (a1, a2, a3);
if a1>=a2 then
max:=a1
else
max:=a2;
if a3>max then
max:=a3;
Writeln('Maximalnoe chislo iz nih:', max);
readln
END.
(X < 16)
НЕ (X четное), следовательно, (X нечетное).
Между условиями стоит "И", следовательно, они должны выполнять одновременно.
X < 16 И X нечетное.
Нам нужно наибольшее.
Ответ: 15.