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

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