мне Во Какими свойствами обладает спрайт? (два базовых свойства)

2. Как создается класе Robots в коде 1? Объясните.

3. Каково назначение функции animate ()?

4.Из скольких состоит проверка столкновения спрайтов внутри группы?
​

1. Современный вариант (так можно писать):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
  var n:=10;
  var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
  var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
  var x:=a.Zip(b,(p,q)->p*q); Print('X:'); x.Println;
  Writeln('min(X)=',x.Min)
end.

Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250

2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
  n=10;
var
  a,b,x:array[1..n] of integer;
  i,min:integer;
begin
  Randomize;
  Write('A: ');
  for i:=1 to n do begin
    a[i]:=Random(99)+1; Write(a[i],' ')
    end;
  Writeln;
  Write('B: ');
  for i:=1 to n do begin
    b[i]:=Random(99)+1; Write(b[i],' ')
    end;
  Writeln;
  Write('X: ');
  min:=100*100; // больше максимального
  for i:=1 to n do begin
    x[i]:=a[i]*b[i]; Write(x[i],' ');
    if min>x[i] then min:=x[i]
    end;
  Writeln;
  Writeln('min(X)=',min)
end.

Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.