Viết CT tính hiệu và trung bình cộng của a, b , c (lm tròn 1 chữ số thập phân) sẵn tiện gợi ý cho tớ viết pt tính tích luôn với ạ

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!!!

Program BTT;
Uses crt;
Var a,b,c,h,tbc: extended;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        h:=a-b-c;
        tbc:=(a+b+c)/3;
        Writeln('Hieu la: ',h:0:2);
        Write('Trung binh cong la: ',tbc:0:2);
        Readln
End.