СРОЧНО, ИНФОРМАТИКА!!!!!!!!!!!
1) Определить чётное и нечётное, положительное или отрицательное число.

var x: Integer;beginwriteln('Введите число');readln(x);if x mod 2=0 then writeln('Число ',x,' - чётное') elsewriteln('Число ',x,' - нечётное');if x>0 then writeln('Число ',x,' - положительное') elseif x<0 then writeln('Число ',x,' - отрицательное') elsewriteln('Число ',x,' - неположительное и неотрицательное число')end.