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

[Булавка]

необходимо проверить является ли произведение элементов главной диагонали квадратной матрицй М ( 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]

Ну, Real - то должен приниматься всегда... Это НЕ сопроцессорный тип... А вот S тоже должна быть описана, как Real, иначе будет попытка записать
Integer <- Real
, чего компилятор не пропустит...