2 biến gồm 1 biến nhập 6 số và 1 biến tổng.
program bai_giai;
uses crt;
var n,t:integer;
begin
clrscr;
read(n); t:=t+n;
read(n); t:=t+n;
read(n); t:=t+n;
read(n); t:=t+n;
read(n); t:=t+n;
readln(n); t:=t+n;
write(t/6:0:2);
readln;
end.
2 biến gồm biến mảng gồm 7 phần tử (tổng là số thứ 7) và biến chạy for.
program bai_giai;
uses crt;
var A:array[1..7] of integer;
i:byte;
begin
clrscr;
A[7]:=0;
for i:=1 to 6 do
begin
read(A[i]);
A[7]:=A[7]+A[i];
end;
write(A[7]/6:0:2);
readln; readln;
end.