допоможіть рішити задачку в паскалі

запишіть умову того числа а, що :є парне, непарне, ділиться без остачі на 3, не ділиться без остачі на 3

if x mod 2 = 0 then Writeln(x, ' парне') else Writeln(x, 'непарне');
if x mod 3 = 0 then Writeln(x, ' ділиться без остачі на 3') else Writeln(x, 'не ділиться без остачі на 3');

Наденька, на будущее. Ответы@mail.ru это русскоязычный ресурс и вопросы надо задавать по русски