определить среди 3 введенных чисел сумму отрицательных и положительных чисел. Если больше сумма положительных, то найти разность первого и второго числа, а иначе найти произведение трех чисел.
БЛОК СХЕМА 
ПРОГРАММА
И РАСЧЕТ

Напишу только программу.Var a,b,c,x,i,s1,s2:integer;Begin s1:=0; s2:=0; c:=0; b:=0; for i:=1 to 3 do   begin    write('x',i,'=');    readln(x);    if x>0 then s1:=s1+x;    if x<0 then s2:=s2+x;    c:=b; b:=a; a:=x;   end; if s1>s2 then s1:=c-b  else s1:=c*b*a; writeln('Ответ: ',s1);End.