Ответ:
program z1;
var a:integer;
begin
write('Введите число ');
readln (a);
if a mod 2 <> 0 then write ('Число нечетное');
if a mod 10 = 6 then write ('Число оканчивается цифрой 6')
end.
Объяснение:
В случае если число не соответствует ни одному из двух условий, то программа не выведет ничего.