Попробую накидать прямо здесь. Компилятора нет под рукой, поэтому проверь, если что не так, то скажи.
======
program xaza ;
var n : integer ;
begin
n := 0 ;
while n <> 1 do begin
write ('vvedi chislo n=' ) ;
readln ( n ) ;
if ( (n mod 2) = 1 ) then write ( 'NE ') ;
writeln ( 'chetnoe' ) ;
end ;
end.