Определите является ли целое число N делителем числа А?(с решением)

На Паскале это будет так: 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.