матрица и ее главная диагональ, прошу помочь Опции

[Булавка]

необходимо проверить является ли произведение элементов главной диагонали квадратной матрицй М ( n=4)
целым числом.
я написала программу для нахождения произведения диагонали, но как проверить является ли оно целым числом?

program matrica;
uses crt;
const n=4;
var
M:array[1..n,1..n] of integer;
i,j,s;integer;
begin
writeln ('введите матрицу М');
for i:=1 to n do
for j:=1 to n do
read (M[i,j];

s:=1;
for i:=1 to n do
for j:=1 to n do
if i=j then
S:=s*M[i,j];
writeln ('s=',s:4);
readln;
end. 

[volvo]

Проверяй, является ли дробная часть близким к нулю числом...

Кстати, совсем не обязательно делать 2 цикла, вполне хватит одного:

s:=1;
for i:=1 to n do
  s:=s*M[i, i];
if Frac(abs(s)) < 1E-6 then writeln('целое число') { <--- Собственно, проверка }

[Булавка]

посни пожалусто что такое 1E-6, и еще вопос-матрица у нас integer ?