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