Một hình A được ghép từ một hình tam giác cân với đường cao a, cạnh bên b và một hình bán nguyệt với bán kính a như hình vẽ. Hãy viet chuong trinh tính diện tích hình A và in kết quả ra màn hình Giúp mik vs,mik đg cần gấp

uses crt;

var a, b, c, s1, s2 : real;

const pi = 3.14;

begin

clrscr;

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

write('nhap canh ben b : ');readln(b);

c := sqrt(b * b - a * a);

s1 := (a * c) / 2;

s2 := (a * a * pi) / 2 - s1 / 2;

writeln('dien tich hinh a : ', (s1 + s2):2:1);

readln

end.

Mô tả: 

INP: nhập a,b,h

OUT: xuất ra màn hình diện tích hình A

Thuật toán:

B1: nhập a,b,h

B2: S<--(a*b)*2;

B3: C<--(a*a*pi)/2;

B4: D<--S+C;

B5: Xuất ra màn hình diện tích hình A (D)

Vt chg trình:

uses crt;

var a,b,S,C,D:integer;

const pi=3.14;

begin

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

write('nhap canh ben:');readln(b);

S:=(a*b)*2;

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

D:=S+C;

writeln('Dien tich hinh A la:',D);

readln;

end.