Ответ: var m, n : Integer;begin Write(‘M = ‘); Readln(m); Write(‘N = ‘); Readln(n); if M mod N = 0 then Writeln(M div N) else Writeln(‘M и N нацело не делится.’); Readln;end.
Ответ: var n,m:integer;beginreadln(m,n);if m mod n =0 then writeln(m div n) else writeln(‘Ne delitsea’);end.