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