Viết Chương trình nhập vào 3 cạnh của một tam giác và in ra màn hình tam giác đó là tam giác vuông hay không? Mình cần gấp ạ!

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba canh tam giac : ');readln(a, b, c);

if (a + b > c) and (b + c > a) and (a + c > b) then

if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = b*b + a*a) then

writeln('la tam giac vuong') else

writeln('khong la tam giac vuong');

readln

end.

progam kiem_tra;

uses crt;

var a,b,c :real;

BEGIN

clrscr;

write(‘nhap canh a thu nhat’); Read(a);

write(‘nhap canh b thu hai:’); Readln(b);

write(‘nhap canh c thu ba’); Readln(c);

if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write(‘la tam giac vuong’);

readln;

END.