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

Var

m, n: integer; r: real;

begin

n:=random (-9999,9999) ;

m:=random (-9999,9999) ;

if m0 then begin

r: = ((n) mod (m)) ;

writeln (r) ; end

else writeln ('Выполнение деления невозможно, т. к. знаменатель равен нулю. Перезапустите программу для подбора других значений') ;

end.