a) Các kiểu dữ liệu của biến:

var DTB, KTTX, KTGK, KTCK: real;

Xep hang HL: string;

b) Các kiểu dữ liệu của biến:

var SP:string;

ST, SL, DG: real;

a)uses crt;
var TBC,t,l,h:real;
begin
 clrscr;
 write('nhap diem toan=');readln(t);
  write('nhap diem ly=');readln(l);
   write('nhap diem hoa=');readln(h);
t:=t*2;
  TBC:=(t+l+h)/4;
   if (TBC>=8)  then writeln('chuc mung ban da duoc loai gioi ')
   else
    if (6.5<=TBC) then writeln('chuc mung ban da duoc loai kha ')
    else
  if (5<=TBC) then writeln('chuc mung ban da duoc loai trung binh ')
 else writeln('chuc mung ban da duoc loai yeu ');
   readln;
 end.

b)uses crt;

 var sl,dg:longint;

 begin

 clrscr;

 write('nhap so luong');readln(sl);

  write('nhap don gia');readln(dg);

  writeln('so tien can tra la ',sl*dg);

 readln;

end.