Напишите программы которые определяют

1) что число нечетное и делится на 3;

2) число делится на 4 и оканчивается на 2.

1)

Program n1;

var a: integer;

begin

readln (a) ;

if (a mod 20) and (a mod 3=0) then write ('1) true') else write ('1) false') ;

end.

2)

Program n1;

var a: integer;

begin

readln (a) ;

if (a mod 4=0) and (a mod 10=2) then write ('2) true') else write ('2) false') ;

end.