Thành tiền nè !!!!!!(Chaỵ ok rồi)

program thanhtien;
uses crt;
var mathang,donvitinh:string;
dongia,soluong,thanhtie:longint;
begin
writeln('ten mat hang:');
readln(mathang);
writeln('don vi tinh cua mat hang:');
readln(donvitinh);
writeln('Cho biet so luong:');
readln(soluong);
writeln('cho biet don gia cua mat hang:');
readln(dongia);
thanhtie:=dongia*soluong;
writeln('Ten Hang','Don Vi':10,'Don Gia':15,'So Luong':20,'Thanh Tien':25);
writeln(mathang,donvitinh:13,dongia:17,soluong:21,thanhtie:26);
readln;
end.