Program lab;
uses crt;
var 
 i,n:integer;
 b,a:array[1..10] of integer;
 label m;
begin
 clrscr;
 Write('Vvedite razmernost massiva (<11): ');
 readln(n);
 randomize;
 writeln('Poluchen massiv:');
 for i:=1 to n do
  begin 
   a[i]:=random(100)-50;
   Write(a[i]:5);
  end;
 Writeln;
 Writeln('Poluchen massiv B:');
 for i:=1 to n do
  begin
   b[i]:=a[i]*a[i];
   Write(b[i]:5);
  end;
 Writeln;
asm
nov cx,n
mov si,0
m:
mov ax, word ptr a+si
mul ax
mov word ptr b+si,ax
add si,2
loop m
end;
writeln('Poluchen massiv b na Assrm');
for i:=1 to n do
write(b[i]:5);
Readln;
End.