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