1C

2b

3. if (mua>5) then ship:=0;

4.if (mua>5) then ship:=0

          else if (mua>=3) and (mua<5) then ship:=ship/2;

5.

program oken;

uses crt;

var n,tien,tong:longint;

begin

clrscr;

write('nhap so ve ban ti mua: '); readln(n);

if n mod 10= 0 then tien:=55000

    else tien:=60000;

tong:=tien*n;

writeln('tong so tien ban ti mua: ',tong);

readln;

end.

1.C

2.B

3. If ly>=5 then ship:=0;

4. If ly>=5 then ship:=0 else If 3<=y<5 then ship:=ship/2 else ship:=ship; 

5. 

Program BTH;
uses crt;
var n,gia,tt:longint;
begin
        clrscr;
        write('Nhap so ve ban ti mua la: ');readln(n);
        if n mod 10=0 then gia:=55000
        else gia:=60000;
        tt:=gia*n;
        writeln('Tong so tien ban ti phai tra la: ',tt);
        readln;
end.