Câu2: a) j = 12 

k=15

b) Có 5 vòng lặp While do

S = 5;

Câu6 các lỗi trong chương trình:

Lỗi 1: Tên chương tình có dấu cách  (HC_N) - Dòng 1

Lỗi 2: Khai báo biến không có dấu '=' ( a,b,s,cv:real) - DÒNG 3

Lỗi 3: Để in ra màn hình dùng lệnh write (Write('Nhap chiều dài =')-Dòng 5

Lỗi 4: Chưa nhận giá trị b, để thêm giá trị b (Readln(b))-Dòng6

Lỗi 5 : Phép nhân là '*' không phải 'x'- dòng 7

Lỗi 6: Phép gán giá trị cho biến cv là ':=' không phải ':' -Dòng 8

Lỗi 7 : Phép chia là '/' KHÔNG PHẢI ':' -dòng 8

Lỗi 8: Để in diện tích hình chữ nhật ra màn hình (Writeln('Dien tich hinh chu nhat la: ',s))

Lỗi 9:Để in diệnChu vi chữ nhật ra màn hình (Writeln('Chu vi hinh chu nhat la: ',cv))

Câu 7:

S = 10

N = 4

Câu 8:

Program InChu

Uses crt;

Var i:integer;

Begin

clrscr;

i:=1

 While i <= 5 do

begin

 Writeln('A');

i:=i +1;

end;

Readln;

End.