Каков результат работы программы при введении с клавиатуры числа -56 program 4; var A:real; begin write ('Введите число A: '); readln (A); if A>=0 then writeln ('Вы ввели положительное число') else Writeln('Вы ввели отрицательное число'); readln end.