program Multiple;
vaA, B: Integer;
begiwriteln('Enter two numbers:')readln(A, B);
if A mod B = 0 thewriteln(A, ' is a multiple of ', Belswriteln(A, ' is not a multiple of ', B)end.
program Multiple;
va
A, B: Integer;
begi
writeln('Enter two numbers:')
readln(A, B);
if A mod B = 0 the
writeln(A, ' is a multiple of ', B
els
writeln(A, ' is not a multiple of ', B)
end.