a) 

B1: nhập số tiền thanh toán;

B2: nếu số tiền ≥500000 thì giảm 50%, ngược lại chỉ giảm 5%;

B3: thông báo kết quả.

b)

program C1;
uses crt;
var t:longint;
    s:real;
Begin
        clrscr;
        write('Nhap so tien can thanh toan: ');readln(t);
        if t<500000 then s:=t-t/100*5
        else s:=t-t/100*50;
        write('Sau khi thanh toan: ',s:2:0);
        readln
End.

a) Mô tả thuật toán :

- Bước 1 : nhập số cần thanh toán ban đầu (T)

- Bước 2 :

- Bước 2.1 : nếu T >= 500000 thì T ← T * 0.5

- Bước 2.2 : ngược lại thì T ← T * 0.95

- Bước 3 : đưa ra giá trị T

- Bước 4 : kết thúc

b) Viết chương trình :

uses crt;

var T : real;

begin

clrscr;

write('Nhap so tien can thanh toan ban dau : ');

readln(T);

if T >= 500000 then T := T * 0.5 else T := T * 0.95;

writeln('So tien can thanh toan : ', T : 2 : 0);

readln

end.