1. выполнить относительно системы счисления. a) 10111102 – (1*2^5 +1*2^3 +1*2^1 +1*2^0)➡️ x10 б) выполнить перевод числа: 99badab16➡️ x2 (^ это степень) !

Uses crt;
var
    b, a: real;
    n: integer;

begin
    clrscr;
    repeat
        Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
        Readln(n);
        
        case n of
            1:
                begin
                    write('Сторона квадрата=');
                    readln(a);
                    Write('S=', a * a);
                end;
            2:
                begin
                    write('Стороны прямоугольника=');
                    readln(b, a);
                    Write('S=', b * a);
                end;
        else exit;
        end;
    until false;
end.

Const
  n = 40;
var
  s,i,ind,k1,k2: integer;
  mas: array[1..n] of integer;
begin
  s := 0;
  for i:=1 to n do s := s+ mas[i];
  Writeln ('сумма элементов массива: ',s);
 
  s := 1;
  for i:=1 to n do s := s * mas[i];
  Writeln ('произведение элементов массива: ',s);
 
  s := 0;
  for i:=1 to n do s := s + mas[i]*mas[i];
  Writeln ('сумма квадратов элементов массива: ',s);

  s := 0;
  for i:=1 to 6 do s := s+ mas[i];
  Writeln ('сумма первых 6 элементов массива: ',s);
 
  ind:=0;
  repeat
    Writeln('Введите К1: '); read(k1);
    Writeln('Введите К2: '); read(k2);
    if (k2>k1) then ind := 1;
  until (ind=1);
 
  s := 0;
  for i:=k1 to k2 do s := s+ mas[i];
  Writeln ('сумма элементов массива с k1-го по k2-й: ',s); 

end.