Bài tập 1:Viết chương trình Pascal có khai báo và sử dụng biến. Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài trị giá hàng hoá, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất.

program Tinh_tien;

uses crt;

var gia,sl,T:integer;

const phi=10000;

Begin

    clrscr;

    write('Nhap don gia: ');readln(gia);

    write('Nhap so luong: ');readln(sl);

    T:=gia*sl+phi;

    write('Tien thanh toan = ',T:2:2);

    readln

End.

uses crt;

var a, b, c, t : longint;

begin

clrscr;

write('nhap so luong mat hang :');readln(a);

write('nhap don gia :');readln(b);

write('nhap don gia :');readln(c);

t := a * b + c;

writeln('so tien phai tra :', t);

readln

end.