cau8{{{{{{{{

var sotien,thang:longint;

      c:char;

begin

 write('day la hoc bong loai(A,B,C,D,O)  :');readln(c);

 write('hoc sinh duoc huong bao nhieu thang');readln(thang);

case c of

'A':sotien:=240000;

'B':sotien:=180000;

'C':sotien:=120000;

'D':sotien:=80000;

'O':sotien:=0;

end;

sotien:=sotien*thang;

write(sotien,'d');

readln;

end.

cau9{{{{{{{{{

var tien:real;

n:qword;

begin

 write('tien bo vao:');readln(tien);

write('so thang luu giu:');readln(n);

while n<>0 do begin

 tien:=tien+(tien/100*0.2);

 n:=n-1;

end;

write('day la so tien nhan duoc:',tien,'d');

readln;

end.

8.

uses crt;
var n:char; t:longint; tien:array['A'..'O'] of longint;
begin
clrscr;
   tien['A']:=240000; tien['B']:=180000; tien['C']:=120000; tien['D']:=80000; 
   tien['O']:=0;
   write('Nhap loai hoc bong=');readln(n);
   write('Nhap so thang: ');readln(t);
   n:=upcase(n);
   writeln(tien[n]*t,'d');
readln
end.

9.

uses crt;
var a:real; t,i:longint;
begin
clrscr;
   write('Nhap so tien=');readln(a);
   write('Nhap so thang: ');readln(t);
   for i:=1 to t do a:=a+a/100*0.2;
   writeln('So tien: ',a:0:2,'d');
readln
end.