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

и точка после "end".

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K:uses crt;var n,k,i,c:integer;beginwrite('N - ');read(n);write('K - ');read(k);c:=0;for i:=10 to 99 dobeginif (i=n) and (i mod 2=0) and (i mod k=0) thenc:=c+1;end;if c<>0 thenelsewrite('yes')end