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

Question

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

Алишер Хабибуллаев · Accepted Answer

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 это русскоязычный ресурс и вопросы надо задавать по русски