Даны целые числа A и B. Требуется определить, является ли число А кратным числу B

var A,B: integer; begin writeln("Введите А"); readln(A); writeln("Введите B"); readln(B); if (A mod B = 0) then writeln("А кратно В"); else writeln("А некратно В"); end.