5/
Program BTH;
Uses crt;
var dai,rong,cao,v,s:longint;
Begin
clrscr;
Write('Nhap chieu dai: ');readln(dai);
Write('Nhap chieu rong: ');readln(rong);
Write('Nhap chieu cao: ');readln(cao);
v:=dai*rong*cao;
s:=((dai+rong)*2*4)+(dai*rong*2);
writeln('The tich hinh hop chu nhat la: ',v);
Writeln('Dien tich toan phan cua hinh hop chu nhat la: ',s);
readln;
end.
6/
Program BTH;
Uses crt;
Var a,b,c:longint;
Begin
clrscr;
write('Nhap do dai canh thu nhat: ');readln(a);
write('Nhap do dai cannh thu hai: ');readln(b);
write('Nhap do dai canh thu ba: ');readln(c);
If (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
writeln('Day la tam giac vuong')
else writeln('Day khong phai la tam giac vuong');
readln;
End.