Câu 1:

uses crt;

var a, b, s : integer;

begin

clrscr;

write('Nhap hai canh a, b : '); readln(a, b);

s := a * b;

write('Dien tich hinh chu nhat = ', s);

readln

end.

Câu 2:

uses crt;

begin

clrscr;

writeln('Ho : Nguyen');

writeln('Ten : Ngoc');

writeln('Lop : 8A');

readln

end.

Câu 3 :

uses crt;

var x, y, z : integer;

begin

clrscr;

write('Nhap x, y = '); readln(x, y);

z := sqr(x) + sqr(x) * y - sqr(x) - y;

write('Gia tri bieu thuc = ', z);

readln

end.

Câu 4 :

a) Viết khai báo:

- Biến a biểu diễn số học sinh trong lớp em

⇒ Cách 1: Var a : byte;

⇒ Cách 2: Var a : integer;

- Biến b biểu diễn số điểm trung bình môn Tin của học kì 1

⇒ Var b : real;

b) Chuyển những phát biểu sau đây thành các biểu thức trong ngôn ngữ Pascal

- x là một số thuộc đoạn [0,10]

⇒ (x >= 0) and (x <= 10)

- c là một số có hai chữ số.

⇒ (c>= 10) and (c <= 99)