Нужно числа до той поры,пока не будет введено число 1.определить четность каждого из них.

Попробую накидать прямо здесь. Компилятора нет под рукой, поэтому проверь, если что не так, то скажи.


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.