1.Дано естественное число. Определить:а) является ли оно чётнымб) заканчивается ли оно

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.