Pascal:
var n:longint;
begin
write ('N = ');
readln(n);
if n mod 2 = 0 then writeln ('Да') else writeln ('Нет');
readln;
end.
C++:
#include
#include
int main()
{
setlocale (LC_CTYPE,"Russian");
int n;
std::cout <<"N = ";<br> std::cin >> n;
if (n%2 == 0)
{
std::cout <<"Да" <<std::endl;<br> }
else
{
std::cout <<"Нет" <<std::endl;<br> }
getch();
return 0;
}