uses crt;
var n,i:longint;
begin
    readln(n);
    i:=n;
    readln(n);
    i:=i+n;
    readln(n);
    i:=i+n;
    readln(n);
    i:=i+n;
   readln(n);
    i:=i+n;
   readln(n);
    i:=i+n;
    writeln(i/6:0:2);
  readln
end.

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.