определить, кратно ли число B ,вводимое с клавиатуры 21​

На Паскале:

var b: integer;

begin

writeln('Введите число: ');

readln(b);

if b mod 21=0 then

writeln('Число кратно 21')

else

writeln('Число не кратно 21');

end.