Написать программу: ввести число, определить делится ли оно на 2

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K:

uses crt;

var n, k, i, c:integer;

begin

write ('N - ') ;

read (n) ;

write ('K - ') ;

read (k) ;

c:=0;

for i:=10 to 99 do

begin

if (i=n) and (i mod 2=0) and (i mod k=0) then

c:=c+1;

end;

if c0 then

else

write ('yes')

end