составить метод который принимает с клавиатуры целое число и выводит на

Ну-с, набросал на коленке - паскаль.

var a:integer;
begin
 write("Введите целое число: ");
 readln(a);
 if(alt;0) then writeln("Число отрицательное!")
 else if(agt;0) writeln("Число отрицательное!")
 else if(a=0) writeln("Число одинаково нулю!");
readkey;
end;