Theo mình thì là sai
Program tinh_tien;
uses crt;
Var so luong :interger;
Var dong gia, thành tien:real;
Var thong bao:string;
Const phi=10000;
Bigin
Clrscr;
Thong bao :='tong so tien phai thanh toan';
Writeln('dong gia');readln('dong gia');
Writeln ('so luong');readln('so luong');
Thanh tien:=so luong*dong gia+phí;
Writeln ('thong bao, thanh tien');
Readln;
End.