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