Pascal Program(10 points)

I cannot understand your question in fact, but if you are meaning that you want the computer to determine if a input number is an even number or odd number, then the following may help you.

Program answer;
var input: integer;
begin
writeln ('Please input a number:');
readln (input);
If (input mod 2)=0 then
writeln ('It is an even number')
else
writeln ('It is an odd number');
end.