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. Cíuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu

1.
program ct;
uses crt;
var a:string;
begin
    clrscr;
    a:='Hello';
    writeln (a);
    readln;
end.

==========================Bài toán.===========================

program ct;
uses crt;
var soluong, giatri, phiDV, tongtien: Qword;
begin
    clrscr;
    
    writeln('Nhap so luong mat hang can mua: '); readln(soluong);
    
    writeln('Nhap gia tri mat hang can mua (VNĐ): '); readln(giatri);
    
    phiDV := 1000;
    
    tongtien := soluong*giatri + soluong*phiDV;
    
    writeln; writeln('Phi dich vu la ',phiDV,'đ');
    
    writeln('Tong tien goc la ',soluong*giatri,'đ');
    
    writeln('Tong phi dich vu la: ',soluong*phiDV,'đ');
    
    writeln('-------------'); writeln('Tong tien can thanh toan la: ',tongtien,'đ');
    
    readln;
end.

Bài tập 1:

program BT1;

uses crt;

var a,c:real;

Begin

       clrscr;

       write('Nhap a: ');readln(a);

       write('Nhap b: ');readln(b);

       write('Dien tich hinh vuong = ',a*b:2:2);

       readln

End.

Bài toán:

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.