На Паскале это будет так:

Program Willa;
var
 n,a:integer;
begin
  write('Введите число A ');
  readln(a);
  write('Введите число N ');
  readln(n);
  writeln('**********************************');
  if a mod n = 0 then writeln('число N является делителем числа А')
else  writeln('число N НЕ является делителем числа А');
  writeln('**********************************');
end.