Câu 6 xem hình:

Câu 7:

*Lần 1 (s<=6): n=n+1=0+1=1; s=s+n=0+1=1

*Lần 2 (s<=6): n=n+1=1+1=2; s=s+n=1+2=3

*Lần 3 (s<=6): n=n+1=2+1=3; s=s+n=3+3=6

*Lần 4 (s>6): n=n+1=3+1=4; s=s+n=6+4=10

$\to (s;n)=(10;4)$

Câu 8:

for i:=1 to 5 do write('A');

Program H C_N;  Không có dấu cách 
Uses Crt;
Var a,b,x,cv:=real;   Không có dấu chấm 
Begin
While('Nhap chieu dai=');readln(a);Nhập nhầm phải là write->sai do không đúng cấu trúc của while.Write('Nhap chieu rong=');readln();  Lệnh Readln chưa đầy đủ, Sửa: Readln(b);

s=axb;                                     Biểu thức phép tính sai, Sửa:  s:=a*b;
cv:(a+b):2;                               Lệnh gán, biểu thức phép tính sai, Sửa: Cv:=(a+b)/2;
Writeln('Dien tich hinh chu nhat la:',s:6:2); Có trong hình không biết đúng không
Writeln('Chu vi hinh chu nhat:',cv:6:2);
Readln
End. 

Câu 2. Gía trị của S=10, N=4;

Câu 3. Đoạn chuong trình:

Begin

Write('AAAAA');

Readln End.