mọi người giúp mình

Sửa lỗi chương trình sau

Program bang_cuu_chuong

Uses crt;

Var N: read;

      i: integer;

Begin

clrscr;

write('Nhap so N=');readln(N);

writeln;

writeln('Bang nhan ',N)

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N')

readln

end.