Verified answer

Ответ:

program Test;

var

 n, t: Integer;

 b: Boolean;

begin

 Write ('Введите трехзначное число: ');

 ReadLn (n);

 if (n >= 100) and (n <= 999) then begin

   if (n mod 10) mod 2 = 0 then

     WriteLn ('четная')

   else

     WriteLn ('не четная');

 end else

   WriteLn (n, ' - не трехзначное');

 ReadLn;

end.