преобразовать Delphi код в assembler

[rip]

for i:=1 to n do
  s:=inttostr(i);
  s1:=inttostr(i*i);
if s=copy(s1,length(s1)-length(s+1,length(s1)-length(s))) then
 writeln(i)

[Stilet]

copy(s1,length(s1)-length(s+1,length(s1)-length(s)))

Это работать не будет.

Хотя в принципе если разберешся с этим то в принципе можно сделать это так:

	include d:\masm32\include\masm32.inc

	includelib d:\masm32\lib\masm32.lib

s				db 20 dup(0)
s1				db 20 dup(0)
ok				db "Равны"

		;

		 xor ebx,ebx
		 mov bx,4
		 .while bx!=0
		  invoke dwtoa, ebx,addr s
		  mov ax,bx
		  mul ax
		  invoke  dwtoa,eax,addr s1
		  mov esi, offset s
		  mov edi, offset s1
		  invoke szCmpi, addr s, addr s1, 20
		  .if eax==0
			invoke SendMessage,hwndlistbox1, LB_ADDSTRING,0, addr ok;
		  .endif

		  dec bx
		 .endw

		;