Viết CT tính tổng và trung bình cộng của a, b , c (lm tròn 1 chữ số thập phân)

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

Program TH;

Uses Crt;

Var a,b,c:integer;

Begin

clrscr;

Write('Nhap so a: '); readln(a);

Write('Nhap so b: '); readln(b);

Write('Nhap so c: '); readln(c);

Write('Tong 3 so tren la: ', a+b+c);

Write('Trung binh cong 3 so tren la: ',(a+b+c)/3:4:1);

Readln;

End.