Program lab;
uses crt;
var 
 i,n:integer;
 b,a:array[1..10] of integer;
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