a) program oken; 
begin 
write('***********************'); 
write('*      ho va ten:          *');
 write('*      lop:                    *'); 
write('*      truong:              *');
 write('***********************'); 
readln; 
end. 
b) program oken; 
var i: integer;
 begin 
writeln('bang cuu chuong 7:'); 
for i:=2 to 9 do 
             writeln(i,' * 7: ',i*7); 
readln; 
end.
 c)program oken;
 var i:integer;
 begin 
for i:=1 to 50 do 
       writeln('" HOC TRUC TUYEN "');
 readln;
 end.
Cho mình xin câu trả lời hay nhấy nha :D