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

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

var a:integer;

begin

write ("Введите целое число: ") ;

readln (a) ;

if (a<0) then writeln ("Число отрицательное!")

else if (a>0) writeln ("Число отрицательное!")

else if (a=0) writeln ("Число равно нулю!") ;

readkey;

end;