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