определить среди 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.