Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.
//PascalABC
7)а) if (x > y) then z := x + y
else z := y - x;
б)при x = 5 и y = -6 (x > y)
z = x + y = -1
8) if (num1 < num2) then num1 := num1 + num2
else num1 := num1 - num2;
Var i, n, sum: integer;
begin
readln(n);
for i:=1 to n do if i mod 2=0 then sum:=sum+i;
writeln(sum);
end.
Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))