input: bán kính R1 và bán kính R2

output: diện tích Hình A

`B1`:Nhập R1 và R2

`B2`: `S_(lớn)`←`((R1+R2))^2` `xx` pi

`B3`: `S_(nhỏ)`←`(R2^2)` `xx` pi

`B4`:`S_A`←`S_lớn`-`S_nhỏ`

`B5`: xuất A rồi kết thúc

uses crt;

var sn,sl,r1,r2,r1,r2:comp;

const pi=3.14;

begin

clrscr;

write('r1 & r2');readln(r1,r2);

sl:=sqr(r1+r2)*pi;

sn:=sqr(r2)*pi;

write('S A',sl-sn);

readln;

end.

- Thuật toán :

+ Bước 1 : Nhập R1, R2

+ Bước 2 : S1 ← R1 * R1 * 3.14

+ Bước 3 : S2 ← R2 * R2 * 3.14

+ Bước 4 : A ← S1 - S2

+ Bước 5 : Đưa ra giá trị A rồi kết thúc

- Chương trình :

uses crt;

var R1, R2, S1, S2, A : real;

begin

    clrscr;

    readln(R1, R2);

    S1 := R1 * R1 * 3.14;

    S2 := R2 * R2 * 3.14;

    A := S1 - S2;

    write(A : 2 : 2);

    readln

end.