В результате выполнения программы значением переменной P будет число Var a: array[1..2] of boolean; i, P: integer; begin a[1]:=true; a[2]:=false; if a[1] > a[2] then P:=1 else P:=0; writeln(P); end.