nhập 3 số nguyên a,b,c từ bàn phím .In ra màn hình trung bình cộng của 3 số đã nhập

Uses crt;

Var a,b,c,s:integer;

Begin

Clrscr;

Writeln(‘nhap a’); readln(a);

Writeln(‘nhap b’); readln(b);

Writeln(‘nhap c’); readln(c);

s:=(a+b+c)/3;

Writeln ( ‘so trung bình la: ‘,s’);

Readln;

End.