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.