asm {
  mov ax,4f02h
  mov bx,0112h
  int 10h
}

   for (int i2=0; i2<num; i2++)
   {
      .....//расчет вектора
      for (i=0; i<size; i++)
         for (j=0; j<size; j++)
            vesa[i]+=vec[j]*G[j][i];
   }

GLOBAL_start
SEGMENT.text
_start:
       mov eax,3
       mov ebx,0
       mov ecx,buf
       mov edx,80
       int 80h
       mov [len],eax
       mov byte[buf+1],'!'
       
       mov eax,4
       mov ebx,1
       mov ecx,buf
       mov edx,[len]
       int 80h
       mov eax,1
       int 80h
   
SEGMENT.data
len dd 0
buf times 80 db 0

MOV DX,адрес
MOV ES,DX
XOR BX,BX
MOV CX,0001
MOV DX,0080
MOV AX,0201
INT 13

MOV DX,0000

lab8 segment para public 'code'
assume cs:lab8,ds:lab8,es:lab8,ss:lab8
org 100h
begin: jmp start
msginn db 0ah,0dh,'Vvedite razmer masivov N:$'
msgina db 0ah,0dh,'Vvod masiva A:$'
msginb db 0ah,0dh,'Vvod masiva B:$'
msgindeg db 0ah,0dh,'Vvedite element massiva:$'
msgouta db 0ah,0dh,'Massiv A:$'
msgoutb db 0ah,0dh,'Massiv B:$'
msgouty db 0ah,0dh,'Rezult:$'
A dw 25 dup (0)
B dw 25 dup (0)
N dw ?
Y dw ?
inBuf db 06,00,5 dup(?)
outBuf db 7 dup(?),'$'
include bin2str.inc
include str2bin.inc

;процедура ввода масива
;перед вызовом в регистре ВХ адресс масива
;в регистре СХ - кол-во элементов
Input proc
xor si,si               ;обнулим индекс
cmp cx,1                ;проверим кол-во элементов
jl @2
@1:
push bx                 ;сохраним адрес масива
lea dx,msgindeg
mov ah,09h
int 21h
lea dx,inBuf
mov ah,0ah
int 21h
mov bx,dx
inc bx
call str2bin
pop bx
mov [bx][si],ax
add si,2
loop @1
@2:
ret
Input endp

;процедура вывода масива
;перед вызовом в регистре ВХ адрес массива
;в регистре СХ - кол-во элементов
Output proc
xor si,si
cmp cx,1
jl @7
@6:
mov ax,[bx][si]
push bx
lea bx,outBuf
call bin2str
lea dx,outBuf+1
mov ah,09h
int 21h
add si,2
pop bx
loop @6
@7:
ret
Output endp


start:
lea dx,msginn
mov ah,09h
int 21h
lea dx,inBuf
mov ah,0ah
int 21h
mov bx,dx
inc bx
call str2bin
mov N,ax

lea dx,msgina
mov a,09h
int 21h
mov cx,N
lea bx,A
call Input

lea dx,msginb
mov ah,09
int 21h
mov cx,N
lea bx,B
call Input

xor si,si
mov ax,N
mov cx,2
imul cx
mov di,ax
mov cx,N
@3:
mov ax,A[si]
mov bx,B[di]
imul bx
add ax,Y
mov Y,ax
loop @3

lea dx,msgouta
mov ah,09h
int 21h
mov cx,N
lea bx,A
call Output

lea dx,msgoutb
mov ah,09h
int 21h
mov cx,N
lea bx,B
call Output

lea dx,msgouty
mov ah,09h
int 21h
lea bx,Y
call Output

int 20h
lab8 ends
end begin