1.Дано натуральное число. Определить:
а) является ли оно чётным
б) оканчивается ли оно цифрой 7.
Дано двухзначное число. Определить:
а) кратна ли трём его сумма цифр
б) кратна ли сумма его чисел числу а.
ПОМОГИТЕ РЕБЯТАААА!!!! ООЙЙ КАК СРОЧНО НАДОО.

1 a)var  a: integer;begin  readln(a);  if a mod 2 = 0 then    println('da')  else println('net');end.======================================1 б)var  a: integer;begin  readln(a);  if a mod 10 = 7 then    println('da')  else println('net');end.================================2 аvar  a: integer;begin  readln(a);  if (a div 10+a mod 10) mod 3 = 0 then    println('da')  else println('net');end.======================================2 бvar  n,a: integer;begin  writeln('Введите число');  readln(n);  writeln('Введите a');  readln(a);  if (n div 10+n mod 10) mod a = 0 then    println('da')  else println('net');end.