Напишите программки которые определяют 1)что число нечетное и делится на 3;2)число

Паскаль?

да

1)

Program n1;
var a: integer;
begin
readln(a);
if (a mod 2lt;gt;0) 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.