program kaito;
uses crt;
var a, b, c, tb, s: real;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
s:=a+b+c;
tb:=s/3;
writeln('Tong cua 3 so a, b, c la: ',s);
writeln('Trung binh cong cua 3 so a, b, c la: ',tb:0:1);
readln
end.
CHÚC BẠN HỌC TỐT!!!