Даны целые числа 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.