Напишите программу вывода ** экран фразы “Число положительное”, если введенное число...

Question

Напишите программу вывода на экран фразы “Число положительное”, если введенное число
положительное, и “Число отрицательное”, если введенное число отрицательное. Помогите пожалуйста я пытался сделать не получалось

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadReal('Введите число:');
if a>0 then write('Число положительное')
else if a<0 then write('</span>Число отрицательное');
end.