Viết chương trình đọc 3 giá trị a,b,c trong file input.txt - Tính tổng số chẵn từ a đến b - a,b,c có phải là hình tam giác vuông hay không In kết quả vào output.txt Giúp mih với mng ơi mình cần gấp tối nay :((

Const Fi='INPUT.TXT';
      Fo='OUTPUT.TXT';

Var f,g: text;
    a,b,c,res,i: longint;
    check: boolean;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,a,b,c);
        res:=0;
        For i:=a to b do
                If i mod 2 = 0 then res:=res+i;
        Writeln(g,res);

        check:=false;
        If (a+b>c) and (b+c>a) and(a+c>b) then
                If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then check:=true;

        If check = false then Write(g,'NO')
        Else Write(g,'YES');
        Close(f);
        Close(g);
End.

uses crt;

var f1, f2 : text; a, b, c, i, s : integer;

begin

clrscr;

assign(f1, 'input.txt'); reset(f1);

assign(f2, 'output.txt'); rewrite(f2);

read(f1, a, b, c); s := 0;

for i := a to b do

if i mod 2 = 0 then s := s + i;

writeln(f2, s);

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

then write(f2, 'Tam giac hinh vuong')

else write(f2, 'Khong la tam giac hinh vuong');

close(f1); close(f2);

end.