* Xác định bài toán :
- Điều  kiện cho trước : chiều dài a và chiều rộng b
- Kết quả thu được : diện tích hình chữ nhật
* Mô tả thuật toán :

- Bước 1 : nhập cạnh a và b

- Bước 2 : s ← a * b

- Bước 3 : xuất giá trị s

- Bước 4 : kết thúc
* Viết chương trình :

uses crt;

var a, b, s : integer;

begin

clrscr;

write('nhap chieu dai a :');readln(a);

write('nhap chieu rong b :');readln(b);

s := a * b;

writeln('dien tich hinh chu nhat la :', s);

readln

end.

- INPUT(điều kiện cho trước): a là chiều dài, b là chiều rộng

- OUTPUT(kết quả thu được): Diện tích hình chữ nhật

- Mô tả thuật toán 

+ Bước 1: Nhập 2 số a và b từ bàn phím

+ Bước 2: Tính diện tích hình chữ nhật ->a x b

+ Bước 3: Kết thúc thuật toán

- Chương trình: 

Var a,b : real ;

Begin

Writeln(‘Nhap hai so a va b’);

Readln(a,b);

Writeln(‘Dien tich hinh chu nhat la’,a*b);

End.