введите с клавиатуры число ввести сообщение положительное если число больше 0 или отрицательное если число меньше нуля

program z123;var a:integer;beginreadln(a); //Считываем числоIf a>0 then //Проверка  writeln('Число положительное') //Вывод если положительное  else  writeln('Число отрицательное'); //Вывод если отрицательноеend.