[r]
(1)ĐỀ KIỂM TRA TIẾT THỰC HÀNH program in_bang_cuu_chuong;
var i, n, s: integer; uses crt;
begin
clrscr;
write('nhap bang cuu chuong so: '); readln(n);
i:= 0;
while i <= 10 do i:= i + 1;
writeln(i, ' x ',n,' = ',i*n) readln
end.
Câu 1: Sửa lỗi lưu lại tập tin trên.