Ошибка <span>Меркурий</span> т.к все слова на английском ,а это на русском
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.
А В A&B A∨A&B<span>
0 0 0 0
0 1 0 0
1 0 0 1
1 1 1 1
1) A∨A&B</span>