Uses Crt;

Var a,b,c,t : integer;

Begin

 Clrscr;

 Write('Nhap a : '); Readln(a);

 Write('Nhap b : '); Readln(b);

 Write('Nhap c : '); Readln(c);
 t:=a+b+c;

 If t >=100 then Writeln('Trung binh 3 so a,b,c : (a+b+c)/3 = ',t/3:1:0) else

  Writeln('a^2 = b^2 + c^2 => ',a*a,' = ',b*b,' + ',c*c);

 Readln

End.

Uses Crt;
Var a,b,c : integer;
Begin
 Clrscr;
 Write('Nhap a : '); Readln(a);
 Write('Nhap b : '); Readln(b);
 Write('Nhap c : '); Readln(c);
 If (a+b+c>=100) then Writeln('Trung binh 3 so a,b,c : (a+b+c)/3 = ',(a+b+c)/3:1:0) 
 else 
  Begin
   if (c>b) and (c>a) then 
   Begin
    writeln('a^2 = c^2 - b^2 => ',a*a,' = ',c*c,'-',b*b);
    write('b^2 = c^2 - a^2 => ',b*b,' = ',c*c,'-',a*a);
   end;
   if (b>c) and (b>a) then 
   Begin
    writeln('a^2 = b^2 - c^2 => ',a*a,' = ',b*b,'-',c*c);   
    write('c^2 = b^2 - a^2 => ',c*c,' = ',b*b,'-',a*a);
   end;
   if (a>c) and (a>b) then 
   Begin
    writeln('b^2 = a^2 - c^2 => ',b*b,' = ',a*a,'-',c*c);
    write('c^2 = a^2 - b^2 => ',c*c,' = ',a*a,'-',b*b);
   end;
  end;
 Readln
End.

đây nha, chúc bạn học tốt!