Напишите программу используя динамические переменные которая вычисляет целое и остаток от деление числа n на m, где n, m целые числа.

varm, n: integer; r: real;beginn:=random(-9999,9999); m:=random(-9999,9999); if m<>0 then   beginr:=((n)mod(m));writeln(r);    endelse writeln('Выполнение деления невозможно, т.к. знаменатель равен нулю. Перезапустите программу для подбора других значений');end.