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.