первая

var

   a : longint := 2;

begin

   write('первые 16 степеней числа ', 2,' : ');

   for var i := 1 to 16 do begin

       a *= 2;

       write(a, ' ');

   end;

end.

втрая

var

   a, p, o, n : integer;

begin

   write('введите 10 чисел : ');

   for var i := 1 to 10 do begin

       read(a);

       if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;

   end;

   writeln('положительных = ', p);

   writeln('отрицательных = ', o);

   writeln('нулю = ', n);

end.

третья

var

   n, s : integer;

begin

   write('введите n=');

   readln(n);

   for var i := 1 to n do s += i;

   writeln('сумма чисел s=', s);

end.