Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000
<span>function Power(x,y:real):real;
{ (C) Puporev }
begin
if x=0 then
Power:=0
else
if x>0 then
Power:=exp(ln(x)*y)
else
Power:=-exp(ln(abs(x))*y);
end;
var
x,y:real;
begin
readln(x,y);
writeln(power(x,y));
end<span>.</span></span>
CLS
INPUT "введи число элементов последовательности"; m
DIM a(m)
FOR i = 1 TO m
PRINT "введи"; i; "элемент последовательности";
INPUT a(m)
IF a(m) > 0 THEN x = x + 1
IF a(m) = 0 THEN y = y = 1
IF a(m) < 0 THEN z = z + 1
NEXT i
PRINT "количество положительных элементов последовательности равно"; x
PRINT "количество нулевых элементов последовательности равно"; y
PRINT "количество отрицательных элементов последовательности равно"; z
END
D) набор текста, редактирование текста, форматирование документа, печать документа