$Th1$
Program Hotboy;
Uses crt;
Var s:real;
Begin
Clrscr;
S:= 640*480/10;
Writeln('can',s,' byte de luu tru 1 vung co kich thuoc bang 1/10 man hinh');
Readln
End.
$Th2$
Màn hình đồ hoạ đó có số điểm là $640.480=307200 $ điểm
Cần số byte để lưu trữ 1 vùng có kích thước $\frac{1}{10} $ là
$\frac{1}{10} .307200.1= 30720 byte $