var a,b,c,d:integer;
begin
readln(a,b,c,d);
if(a<0) then a:=0;
if(b<0) then b:=0;
if(c<0) then c:=0;
if(d<0) then d:=0;
writeln(a+b+c+d);
end.
Объяснение:
