Ответ:

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.

Объяснение: