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 ạ