Составить алгоритм который принимает с клавиатуры целое число и выводит на экран сообщение положительное или отрицательное

Ну-с, накидал на коленке - паскаль.

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