Câu 1: uses crt;
var T,L,H:byte;
begin
clrscr;
write('Nhap vao ho ten: ');
write('So bao danh: ');
write('Diem toan: '); readln(T);
write('Diem Ly: '); readln(L);
write('Diem Hoa: '); readln(H);
write('Tong diem: ',T+L+H);
readln;
end.

Câu 2: uses crt;
var n:integer;
begin
clrscr;
write('Nhap vao so co 3 chu so: '); readln(n)
writeln('Chu so hang tram: ',n div 100);
n:=n mod 100;
writeln('Chu so hang chuc: ',n div 10);
n:=n mod 10;
writeln('Chu so hang don vi: 'n);
readln;
end.