Câu 1 dễ.... mình giúp câu 2 nha

Program bai1;

var a,b,c : integer;

begin

readln(a,b,c);

write(' Tong abc là : ', a+b+c);

writeln(' Hiệu a - b-c là:', a- b-c);

writeln('Tích abc là :', a*b*c);

writeln(' Thương abc là :', a/b/c);

readln 

end.

B1

uses crt;  

begin

writeln('5*7-4+2+1=',5*7-4+2+1);  

writeln('(4-7)/(4+2)+(4*7)/(4-2)=',(4-7)/(4+2)+(4*7)/(4-2));  

writeln('(4+13)/(4+2)-(6+7)/(4-1)=',(4+13)/(4+2)-(6+7)/(4-1));     

readln; 

end.    

B2 

uses crt; 

var a,b,c:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

write('nhap c:');readln(c);

writeln('tong 3 so la:',a+b+c); 

writeln('hieu 3 so la:',a-b-c);    

writeln('tich 3 so la:',a*b*c);    

writeln('thuong 3 so la:',a/b/c);    

writeln('trung binh cong 3 so la:',(a+b+c)/3); 

readln;

end.