Question

In turbo pascal va rog dau fundiță

Answer 1

var

  n:integer;

begin

    writeln('Numarul:');

     read(n);

     if (n mod 2=0)  then

     writeln('Numarul este par');

    else

     writeln('Numarul nu este par');

  end.