Нужно составить программу (Pascal) определяющую является ли число А кратным числу В.

Предыдущий
вопрос Следующий
вопрос

program Multiple;

var
A, B: Integer;

begin
writeln('Enter two numbers:');
readln(A, B);

if A mod B = 0 then
writeln(A, ' is a multiple of ', B)
else
writeln(A, ' is not a multiple of ', B);
end.