Chỗ program không được chứa dấu cách

Chỗ khai báo biến mảng a trong dấu ngoặc vuông chỉ có 2 dấu "." và sau cùng phải có dấu ";"

Chỗ for phải là i:=1 to n do 

Chỗ tbc:=tong/n; ( phải có dấu ";")

Chỗ end. (là dấu "." không phải ";")

a) program ct;

uses crt;

var i,n,tong:integer; tbc:real;

A:array[1..100[ of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

tong:=0;

for i:=1 to n do

begin

tong:=tong+A[i];

tbc:=tong/n;

end;

writeln('trung binh cong la:',tbc:10;2)

readln

end.

b) 

- tên chương trình ko được cách

- sao câu program thiếu uses crt;

- biến mảng từ 1 đến 100 chỉ có 2 dấu chấm, sao từ integer ko có ;

- chổ for sau i: phải là = sửa for i:=1 to n do

-sau câu lặp for thiếu End;

-chỗ tbc:=tong/n phải có ; cuối câu

-end cuối là dấu .

c) cho n=3

a[1]=3

a[2]=2

a[3]=1

có 3 vòng lặp

+lần 1: s=0+a[1]=0+3=3

+lần 2: s=3+a[2]=3+2=5

+lần 3: s=5+a[3]=5+1=6

vậy lấy giá trị cuối của s=6

tbc=6/3=2

mình có chạy chương trình bạn xem.