HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
program baitap;uses crt;var i,n,tong:integer;begin clrscr; write('nhap so quyen sach: ');readln(n); if n<=10 then tong:=n*600 else tong:=n*500; write('tong tien mua ',n,' quyen sach la: ',tong); readlnend.