LISTA2_EX1 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX02_LISTA02 ;

var x, y :integer;

Begin
     writeln ('Digite com um valor maior que zero: ');
     readln (x);

     if (x mod 2 = 0) then
      begin
        writeln ('O número é par!')
      end
     if (x mod 2 <> 0) then
      begin
        writeln ('O número é ímpar!')
      end

End.