mọi người giúp mình giải bài tập số 9- sgk tin học lớp 11 trâng 36 với, em xin chân thành cảm ơn

Program dien_tich_phan_gach;
Uses crt;
Var a: real; Conts pi = 3,1416;
Begin
Clrscr;
Write('Nhap ban kinh duong tron a (a>0): ');
Readln(a) ,
write('Dien tich phan gach cheo la: ',a*a*pi/2:20:4);
Readln

End .

Khi chạy chương trình, nếu a = 2 thì diện tích phần gạch là 6.2832;

nếu a = 3 thì diện tích phần gạch là 14.1372;

nếu a = 5 thì diện tích phần gạch là 3 1.8086

Học tốt!!

*Bạn tham khảo nhé:

  Program Ct1;

  Uses crt;

  Var a:real;

  Begin

                Writeln('Nhap vao so a');

                Readln(a);

                Writeln('dien tich phan gach cheo la ',(a*a*3.14)/2:0:4);

                Readkey();

End.