Viết chương trình nhập vào từ bàn phím tên một quốc gia trên thế giới và dân số cùng diện tích (số liệu mới cập nhật) của quốc gia đó; Tính mật độ dân số của quốc gia đó (làm tròn 1 chữ số thập phân và có ghi rõ đơn vị) và xuất kết quả ra màn hình.

var ten:string;

      ds,dt,md:real;

begin

write('Nhap ten quoc gia: '); readln(ten);

write('Nhap dan so: '); readln(ds);

writr('Nhap dien tich: '); readln(dt);

md:=ds/đt;

write('Mat do dan so cua nuoc ',ten,' la: ',md:0:1);

readln;

end.

Program BTT;
Uses crt;
Var St: String;
    ds,dt: qword;
Begin
        Clrscr;
        Write('NUOC: '); Readln(St);
        Write('Dan so: '); Readln(ds);
        Write('Dien tich: '); Readln(dt);
        Write('Mat do: ',ds/dt:0:1);
        Readln
End.