В среде Lazarus создать проект для вычисления выражений (работа с целыми числами) с использованием языка программировани

procedure TForm1.Button1Click(Sender: TObject);
 var s:integer;
begin
  asm
    mov s,0
    mov rcx,20
    @l1:
    mov rax,20
    mul rcx
    add s,rax
    loop @l1
  end;
  showmessage(inttostr(s));
end;

const
  k = 20;
var
  arr : array[1 .. k] of integer;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  st : string;
  sum : integer;
  i : integer;
  v_min, v_max : integer;
begin
  asm
    push rax
    push rbx
    push rcx
 
    xor eax, eax
    mov ecx, k
    mov ebx, ecx
  @@L1:
    add eax, ebx
    add ebx, k
    loop @@L1
 
    mov [sum], eax
 
    pop rcx
    pop rbx
    pop rax
  end;
  ShowMessage(Format('#1: sum = %d', [sum]));
 
  asm
    push rax
    push rbx
    push rcx
 
    xor eax, eax
    mov ecx, 5
    mov ebx, k
  @@L2:
    add eax, ebx
    imul ebx, k
    loop @@L2
 
    mov [sum], eax
 
    pop rcx
    pop rbx
    pop rax
  end;
  ShowMessage(Format('#2: sum = %d', [sum]));
 
  st := '';
  for i := 1 to k do
  begin
    arr[i] := random(100);
    st := st + IntToStr(arr[i]) + ' ';
  end;
 
  asm
    push rax
    push rcx
    push rdi
 
    xor eax, eax
    mov ecx, k
    mov edi, offset arr
  @@L1:
    add eax, word ptr [edi]
    add edi, 4
    loop @@L1
 
    mov [sum], eax
 
    pop rdi
    pop rcx
    pop rax
  end;
  ShowMessage(Format('#3: array = %s, sum = %d', [st + sLineBreak, sum]));
 
  asm
    push rax
    push rbx
    push rcx
    push rdx
    push rdi
 
    xor eax, eax // sum <- 0
    mov ecx, k
    mov edi, offset arr
    mov ebx, word ptr [edi] // max <- первый элемент массива
    mov edx, ebx            // min <- первый элемент массива
 
  @@L1:
    mov eax, word ptr [edi]
    cmp eax, ebx // сравниваем очередной элемент с максимальным
    jle @@L2 // если очередной меньше или равен максимуму - переходим к проверке минимального
    mov ebx, eax
 
  @@L2:
    cmp eax, edx // сравниваем очередной элемент с минимальным
    jge @@L3 // если очередной больше или равен минимальному - переходим к концу цикла
    mov edx, eax
 
  @@L3:
    add edi, 4
    loop @@L1
 
    mov [v_max], ebx
    mov [v_min], edx
 
    pop rdi
    pop rdx
    pop rcx
    pop rbx
    pop rax
  end;
  ShowMessage(Format('#4: array = %s,min = %d max = %d', [st + sLineBreak, v_min, v_max]));
 
end;