Если целое число m делится на целое число n то на экран частное от деления в противном случае сообщение "m na n на целое

Program delenie_chisel;Uses CRT;Var n, m, i, d : integer; Begin CLRSCR; Writeln( ‘ введите первое число m = ’ ); Readln(m); Writeln( ‘ введите второе число n= ’ ); Readln(n); i:= m mod n; if i=0 then begin d:=m/n; writeln( ‘d= ’ , d:5); end;else writeln ( ‘ m на n нацело не делиться ’ );repeat until keypressed;END.