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

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