mình hưỡng dẫn thôi còn đâu bạn tự làm nha
a) readln(a,b,c);
s:=a+b+c;
write(s);
b) min:=a;
if min > b then min:=b;
if min > c then min:= c;
write(min);
c) dem:=0;
if a < 0 then inc(dem);
if b< 0 then inc(dem);
if c< 0 then inc(dem);
write(dem);