20 нужна составьте программы и блок-схемы для "введите число выдайте информацию о его знаке (отрицательное, положительное или равное нулю)

Program n_12;
var a;
begin
write ('введите число');
if (a); a= положит., отрицат., или равное 0
end.