Написать программу: дано любое число x определите какие число- положительное или относительно

Ответ:program ex13;

var a:real;b:integer;

begin

readln(a);

b:=a div 1;

if ((b mod 2)=0)

 then writeln('chetnoe')

 else writeln('nechetnoe');

if ((a mod 1)=0)

 then writeln('celoe')

 else writeln('ne celoe');

if a>=0

 then writeln('polozhitelnoe')

 else writeln('otrizatelnoe');

end.

Объяснение: