program Division;
varM, N, result: Integer;
beginwriteln('Введите число M: ');readln(M);
writeln('Введите число N: ');readln(N);
if M mod N = 0 thenbeginresult := M div N;writeln('Частное от деления M на N: ', result);endelsewriteln('M и N нацело не делятся');
end.
program Division;
var
M, N, result: Integer;
begin
writeln('Введите число M: ');
readln(M);
writeln('Введите число N: ');
readln(N);
if M mod N = 0 then
begin
result := M div N;
writeln('Частное от деления M на N: ', result);
end
else
writeln('M и N нацело не делятся');
end.