var
  n: integer;

begin
  write('Введите n: ');
  read(n);
  if (n mod 10 = 0) then writeln('Число n делится на 10')
  else writeln('Число n не делится на 10');
  if (n mod 3 = 0) then writeln('Число n кратно 3')
  else writeln('Число n не кратно 3');
  if (n mod 2 = 0) then writeln('Число n является четным')
  else writeln('Число n является нечетным');
  if (n mod 10 = 7) then writeln('Число n оканчивается на 7')
  else writeln('Число n не оканчивается на 7');
end.