1.*Cú pháp khai báo biến:
Var tên biến:kiểu dữ liệu;
*Cú pháp kha báo hằng:
Const tên hằng=giá trị;
2.*Chương trình:
progam .....(tự ghi);
uses crt;
var a,b,trung_binh:integer;
begin
Writeln('Nhap vao 2 so a va b');
Readln(a,b);
Trung_bình:=(a+b)/2;
Writeln('Trung binh cua 2 so a va b la ',Trung_binh:5:2);
Readln
End.