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

1 uses crt;2 var b:integer;3 begin 4 write(' A и B и C: ');readln(b);5 if b mod 21=0 then write('кратно ') else writeln('не кратно ')6 end. А если сделать так?

можно и через модуль crt, принцип то тот же, но с 4 строчкой что-то тут не то),зачем там и "а" и "b" и "c"?)

На Паскале:

var b: integer;

begin

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

readln(b);

if b mod 21=0 then

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

else

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

end.