№2.

Program chisla;

Uses crt;

Var a: longint;

Begin ClrScr;

 Writeln ('введи число');

 Readln (a);

 If a mod 2 = 0 then

  begin

   writeln (a, '-чётное число');

  end

  else 

    writeln (a, '-нечётное число');

end.