Без понятия как регистрами пользоваться

program test_asm4;
{$APPTYPE CONSOLE}
var
  a, b, c: integer;
 
function pif(a, b, c: integer): boolean; register;
asm
          mov eax, a    //eax = a
          mul eax       //ebx = a*a
 
          mov edx, b    //ecx = b
          mul edx       //edx = b*b
 
          je @@true     //if a*a+b*b=c*c
          test ecx,ecx
          add edx, eax  //a*a+b*b
          mov c, edx    //c=a*a+b*b
          mul edx
          mul edx       //edx=c*c
 
          ret
 
@@true:   xor edx,edx   //return true
          pop edx
end;
begin
  Readln(a, b, c);
  writeln(pif(a, b, c));
  readln
end.

function pif(a, b, c: integer): boolean;
begin
  Result := c*c = a*a + b*b;
end;

function pifagor(a,b,c : integer):boolean;assembler;
 // c^2 = a^2 + b^2
 asm
 push ebx
 mov ebx, edx
 mul eax
 push eax
 mov eax,ebx
 mul eax
 pop edx
 pop ebx
 add eax, edx
 cmp eax, ecx
 jne @@not_equ
 mov eax,1
 ret
@@not_equ:
 mov eax,0
 end;

function Pif(a, b, c: Integer): Boolean; assembler;
// eax <- a, edx <-b, ecx <- c; a^2 + b^2 = c^2
asm
  push edx
  xchg eax,ecx
  mul  eax
  xchg eax,ecx
  mul  eax
  sub  ecx,eax
  pop  eax
  mul  eax
  test eax,ecx
  mov  eax,1
  jz   @yes
  xor  eax,eax
@yes:
end;