В заданном натуральном трехзначном числе N имеется четная цифра. (программа Паскаль)

Question

В заданном натуральном трехзначном числе N имеется четная цифра.

Answer 1

program pr1;
uses crt;
var n:integer;
     f:boolean;
begin
clrscr;
writeln('Введите трехзначное число n ');
readln(n);
if (n>=100) and (n<=999) then
 begin
 f:=((n div 100) mod 2=0) or ((n div 10 mod 10) mod 2=0)
 or((n mod 10) mod 2=0);
 writeln('В задоном числе n имеется четная цифра ',f);
 end
else
writeln('Число не является трехзначным ');
readkey;
end.