нужно написать программу в паскале

[Liubov]

Написать программу, которая запрашивает ввод целого числа и выводит на экран сообщение, положительное это число или нет (0- ни положительное, ни отрицательное число).

[igemon]

uses crt;
var a:integer;
BEGIN
   clrscr;
   writeln('Введите число');
   readln(a);
   if a>0 then writeln('Число ',a,' положительно')
   else 
      if a<0 then writeln('Число ',a,' отрицательно')
          else write('Число ',a,' это 0');
readln
END.