program baitap;
uses crt;
var a,b,c:longint;
BEGIN
clrscr;
Writeln('a)');
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
if ((a>0) and (b>0)) and (c>0) then
if (((a+b)>c) and ((b+c)>a)) and ((a+c)>b) then begin writeln('b)La tam giac');
if (a=b) or (a=c) or (b=c) then
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then
writeln('c)La tam giac vuong can') else
writeln('c)La tam giac can')
else
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then
writeln('c) La tam giac vuong') else
writeln('c) La tam giac thuong') end else writeln('Ko');
readln
END.

Cho mình xin hay nhất nhé, mình còn thiếu hai cái nữa thôi, cảm ơn trước.

Xem hình dưới ↓↓↓