a.
program by_nhandz;
uses crt;
var S:integer;
M:Real;
begin
clrscr;
write('so km khach di duoc la:');readln(S);
M:=S*12000;
if M>=12000 then writeln('Tong so tien la:',M)
else writeln('Don vi khong hop le');
readln();
end.
câu B khi nào rảnh t làm tiếp nhé