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