Напишите программу в паскале авс, опеделяющую знак числа

Var a:integer;
Begin
read(a);
if a>0 then write('Число положительное');
if a<0 then write('Число отрицательное');
if a=0 then write('Введённое число - 0');
End.