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

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

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

 Сообщение это совокупность знаков, отображающих ту или иную информацию. Передача сообщений (а, следовательно, и информации) на расстояние осуществляется с какого-либо материального носителя, например, бумаги или магнитной ленты или физического процесса, например, звуковых или электромагнитных волн, тока и т.д.
Информация — сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, управляющие машины и др.) в процессе жизнедеятельности и работы.

Предположительно, этот феномен объясняется тем, что в принципе у человека имеется лишь такие получения информации, как зрение, слух, вкус и обоняние. И все эти виды ощущений постоянно "включены" в организме человека и не могут не быть использованы, т.е. их нельзя просто так выключить. Таким образом, когда человек спит, он может учуять запах пирогов, и во сне, с большой вероятностью, может присниться пища, еда. И если же, этот момент подкреплён голодом, то естественно, эффект усиливается. И возможно, что человек и вовсе проснётся.