B1: Viết chương trình tính diện tích hình bán nguyệt ( 1 nx hình tròn ) bik K là số nghuyên đc nhập từ bàn phím kết quả lấy hai chữ số thập phân sau d

uses crt;

var r,K: integer;

begin

       clrscr;

       writeln(‘nhap r’); readln(K);

       K:=(3,14*r*r)/2;

       writeln (‘Dien tich hinh ban nguyet la ‘, K:10:2);

       readln;

end.