var ch,so,sp:integer;
begin
for i:=1 to 4 do
if ch>0 then sp:=s+ch
else
so:=so+ch;
end;
writeln(so+sp);
end.
как то так
