var a,b,c:Integer; f1,f2:text; begin assign(f1,'pitago01.inp,'); reset(f1); assign(f2,'pitago01.out'); rewrite(f2); while not eof (f1) do begin Write('a,b,c'); ReadLn(f1,a,b,c); if( a*a=b*b+c*c) or ( b*b=a*a+c*c) or ( c*c=a*a+b*b) then WriteLn('f2,a,',',b,',',c,',',la boi so pitago') else WriteLn('f2,a,',',b,',',c,',',khong la boi so pitago') end; close(f1); close(f2) end. Sửa hộ mình lỗi sai với ạ

dòng else WriteLn('f2,a,',',b,',',c,',',khong la boi so pitago') bạn thiếu ; ở cuối

dòng close(f2) bạn cũng thiếu dấu ; ở cuối

sửa:

var a,b,c:Integer;
f1,f2:text;
begin
        assign(f1,'pitago01.inp,'); reset(f1);
        assign(f2,'pitago01.out'); rewrite(f2);
        while not eof (f1) do
                begin
                        Write('a,b,c');
                        ReadLn(f1,a,b,c);
                        if( a*a=b*b+c*c) or ( b*b=a*a+c*c) or ( c*c=a*a+b*b)
                        then WriteLn('f2,a,',',b,',',c,',',la boi so pitago')
                        else WriteLn('f2,a,',',b,',',c,',',khong la boi so pitago');
                end;
        close(f1);
        close(f2);
end.