Решите задания по теории множеств

нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

var    a,b,c,d,x1,x2: real;     beginreadln(a,b,c); d: =b*b-4*a*c; if d< 0  then writeln('только комплексные корни')else

begin

d: =sqrt(d);

x1: =(-b+d)/(2*a); x2: =(-b-d)/(2*a); writeln('x1=',x1); writeln('x2=',x2); end;     end.