Câu 5: A

Câu 6: Bằng 15

Câu 7: Biến S bằng 10, Biến n bằng 4

Câu 8: 

*Có hai cách giải:

- Cách 1: (Lệnh While)

program TramChuO;

uses crt;
Var i: integer;

BEGIN

    clrscr;
    i:= 1;
    While i <= 100 do
    Begin
    Write('O');
    i:= i + 1;
    End;
END.

- Cách 2: (Lệnh For)

program TramChuO;
uses crt;
Var i: integer;
BEGIN
    clrscr;
    For i:= 1 to 100 do
    Begin
    Write('O');
    End;
END.

*Chọn cách nào cx đc!

Câu 9:

Chương trình đúng:

program Baitap_1;
uses Crt;
Var a,b,s,cv: real;
Begin
    Write('Nhập chiều dài ='); readln(a);
    Write('Nhập chiều rộng ='); readln(b);
    s:= a*b;
    cv:= (a+b)*2;
    Writeln('Diện tích hình chữ nhật là:', s);
    Writeln('Chu vi hình chữ nhật là:', cv);
    Readln;
End.

*Lưu ý 1: 

- Nhập Write('Nhập chiều dài ='); readln(a); tương tự như Writeln('Nhập chiều dài ='); read(a);

- Tương tự với Write('Nhập chiều rộng ='); readln(b);

*Lưu ý 2:

Begin và End là từ khóa và Pascal ko phân biệt từ khóa hay biến là ghi chữ thường hay chữ hoa nên Begin, End mình giữ nguyên nhé.

*Lưu ý 3:

Trong câu 7, tên Program là TramChuO chứ không phải 100ChuO vì trong Pascal đặt khai báo tên chương trình không cho phép số đứng trước