- Các khai báo cần thiết:

S: Tổng diện tích

SC: Diện tích hình chữ nhật

SV: Diện tích hình vuông

- Thuật toán:

Bước 1: Nhập SC

Bước 2: SV ← 10.5*10.5

Bước 2: S ← SC + SV

Bước 3: Xuất kq

- Chương trình:

Program BTT;
Uses crt;
Var S,SC,SV: real;
Begin
        Clrscr;
        Write('Nhap dien tich hinh chu nhat: '); Readln(SC);
        SV:=10.5*10.5;
        S:=SC+SV;
        Write('Tong dien tich la: ',S:0:2);
        Readln
End.

Uses crt;

Var Shcn :real;

Begin

 clrscr;

 Writeln('Dien tich hinh chu nhat = ');readln(Shcn);

 Write('Tong dien tich hai thua ruong la ',Shnc+(10.5*10.5):3:2);

 Readln;

End.