Оператор mod возвращает остаток от деления. Четное число – такое, остаток от деления которого на 2 равен нулю.
Функция int возвращает целую часть дробного числа. С её можно реализовать mod (
– примерно то же самое, что и 
) или сравнить результат умножения на 2 целой части результата деления исходного числа на 2 с исходным числом.
Код:
begin
var a := ReadInteger();
writeln(a mod 2 = 0);
writeln(a - 2 * int(a / 2) = 0);
writeln(a = 2 * int(a / 2));
end.
Пример ввода:
5
Пример вывода:
False
False
False
Пример ввода:
42
Пример вывода:
True
True
True
Условие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. Если оно не нужно - удали фрагмент 'and(a[i,j]<>0)'
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n,1..n] of integer;
i,j: integer; p: longint;
begin
p:=1;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(50);
if (a[i,j]<15)and(a[i,j]<>0) then p:=p*a[i,j];
write(a[i,j]:3);
end;
writeln;
end;
writeln('Proizvedenie =',p);
readln
end.