вообще признак делимости на 2 можно определить
проще. Если остаток от деления на 2=0 тогда число делится на 2 нацело
иначе нет if (n mod 2)=0 then writeln('Число делится на 2 нацело' )
else writeln('Число не делиться на 2 нацело' );
Однако если по условию задачи признак, такой то уж ничего не пделаешь
Program evenNum;
Uses crt;
var n:real;
begin
clrscr;
write('Введите число n: ');
readln(n);
if ((n/2)<>(n div 2)) then writeln('Число не делится на 2 нацело' )
else writeln('Число делится на 2 нацело' );
readkey;
end.