Uses crt;
Var a,b,tong, TB: real;
Begin
Clrscr;
Writeln('nhap so a'); readln(a);
Writeln('nhap so b'); readln(b);
tong:=a+b;
TB:=tong/2; { vì chỉ có 2 phần tử a và b}
Writeln(' vạy tong cua bạn la', tong);
Writeln(' vạy TB cua 2 so la', TB);
Readln;
End.