var x,s,i: integer;
begin
s:=0;
for i:=1 to 10 do begin
read(x);
if (x<>5) then s:=s+x;
end;
write(s);
end.
Объяснение:
