Câu 14: B. 5 vì a<0 

Câu 15: C. F2

Câu 16: A. F9

Câu 17: B. Ctrl+F9

Câu 18: B. a*a*a-b*b*b

Câu 19: B. Tong:=a+b;

Câu 20: B. If <đk> then <cl1> else <cl2>

Câu 21:

a) Sai, lệnh đúng: Program <tên chương trình>

b) Đúng

c) Đúng

d) Đúng

Bài 1:

Program S_chu_nhat;

Uses crt;

Var a,b: real;

Begin 

      Writeln('Nhap chieu dai: '); Readln(a);

      Writeln('Nhap chieu rong: '); Readln(b);

      Writeln('Dien tich: ',a*b);

      Writeln('Chu vi: ',(a+b)*2);

      Readln

End.

Bài 2:

Program Hnh_tron;

Uses crt;

Var r: real;

Begin

      Writeln('Nhap ban kinh: '); Readln(r);

      Writeln('Chu vi: ',r*2*pi);

      Writeln('Dien tich: ',r*r*pi);

      Readln

End.

Câu 14: B

Vì a<8

Câu 15: C

Nhấn F2 rồi enter

Câu 18: B

Phép nhân dùng *

Phép trừ dùng -

Câu 20:  A

Câu 21: 

A) Sai

B) Đúng

C) Đúng

D) Sai (Ko bắt buộc có)

BT

Bài 1: 

Program bai_lam;

Uses crt;

Var a,b,S,CV:Integer;

Begin

Write('Nhap do dai cho chieu dai');readln(a)

Write('Nhap do dai cho chieu rong');readln(b)

S:=(a*b)

CV:=((a+b)*2)

Write('Dien tich hinh chu nhat la:');readln(S)

Write('Chu vi hinh chu nhat la:');readln(CV)

Readln;

End.

#KietChuyenTin