У логические выражения
Задача 1.
F(xl,x2,x3)=(x1+ -x3)*- x3+--x3+x2*x1+ -x2).
Задача 2.
F(x1,x2, x3) = x1*-x2+ -x1+x1*x2*x3+x3.
Задача 3.
F(x1,x2,x3)= xl*-x2*x3+ -x1*-x3+x2*-x2.

var
  a, b, c, d, i, n, p: integer;
  x, y: real;

begin
  writeln('Задача 1, введите n =');
  read(n);
  for i := 1 to n do
    if i mod 2 = 0 then
      x := x + 1 / (2 * i + 1)
    else x := x - 1 / (2 * i + 1);
  writeln('Sum = ', x);
 
  writeln('Задача 2, введите a, b, c, d =');
  read(a, b, c, d);
  for i := a to b do
    if i mod c = d then writeln(i);
 
  writeln('Задача 3, введите n и n чисел =');
  read(n);
  a := 0; b := 0; c := 0;
  for i := 1 to n do
  begin
    read(p);
    if p = 0 then a := a + 1
    else if p < 0 then b := b + 1
    else if p > 0 then c := c + 1;
  end;
  writeln(a, ' ', b, ' ', c);
 
  writeln('Задача 5, введите x, p ,y =');
  read(x, p, y);
  n := 0;
  repeat
    x := round(x * (100 + p)) / 100;
    n := n + 1;
  until x >= y;
  writeln(n, ' лет');
 
  writeln('Задача 6, введите A, B =');
  read(a, b);
  repeat
    if (a mod 2 = 0) and (a div 2 >= b) then begin
      writeln(a, ' : 2 = ', a div 2);
      a := a div 2
    end
    else begin
      writeln(a, ' - 1 = ', a - 1);
      a := a - 1;
    end;
  until a <= b;
end.

For i in 0..15
    c = "E0".to_i(16) + i
    puts "%s_16 = %s_8 = %s_4 = %s_2" % [c.to_s(16),c.to_s(8),c.to_s(4),c.to_s(2)]
end

e0_16 = 340_8 = 3200_4 = 11100000_2
e1_16 = 341_8 = 3201_4 = 11100001_2
e2_16 = 342_8 = 3202_4 = 11100010_2
e3_16 = 343_8 = 3203_4 = 11100011_2
e4_16 = 344_8 = 3210_4 = 11100100_2
e5_16 = 345_8 = 3211_4 = 11100101_2
e6_16 = 346_8 = 3212_4 = 11100110_2
e7_16 = 347_8 = 3213_4 = 11100111_2
e8_16 = 350_8 = 3220_4 = 11101000_2
e9_16 = 351_8 = 3221_4 = 11101001_2
ea_16 = 352_8 = 3222_4 = 11101010_2
eb_16 = 353_8 = 3223_4 = 11101011_2
ec_16 = 354_8 = 3230_4 = 11101100_2
ed_16 = 355_8 = 3231_4 = 11101101_2
ee_16 = 356_8 = 3232_4 = 11101110_2
ef_16 = 357_8 = 3233_4 = 11101111_2