MTTT:

B1:nhập a

B2: S:=a*a;

B3: C:=(a/2)*(a/2)*3.14;

B4: D:=S-C;

B5: end.

VT Chg trình:

uses crt;

var a,S,C,D:integer;

begin

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

S:=a*a;

C:=(a/2)*(a/2)*3.14;

D:=S-C;

writeln('Dien tich hinh dc to mau la: ',D);

readln;

end.

Mô tả thuật toán

Bước 1 : nhập a

Bước 2 : S : = a*a

Bước 3 : C : = ( a/2 ) * ( a/2 ) * 3.14;

Bước 4: D : = S - C

Viết chương trình 

Uses crt

Var a , S , C ,D : integer

Begin

Write ( ' nhap a : ' ) ; readln ( a )

S : = a*a

C : = ( a/2 )*( a/2 )*3.14

D : = S - C

Writeln ( 'Dien tich hinh duoc to mau la: ',D )

Readln