Program test
var
c: integer
begin
readln(c);
if c mod 2 = 0 then writeln("Четное");
else writeln("Нечетное");
end.
Не особо шарю в паскале, поэтому на всякий случай вот на С++:
#include
using namespace std;
int main()
{
int c;
cin >> c;
if(c%2 == 0) cout << "Четное";<br>else cout << "Нечетное";<br>return 0;
}