Question

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

Answer 1

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