Ответ: 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.