CРОЧНО Выполните сложение двоичных чисел
1) а) 101+111 б) 1101+110 в) 1111+1011 г)1011+110 д)1010+1111 е)11,011+101,01
выполните вычитание двоичных чисел
2) а) 1010-110 б)110-11 в)1011-101,11 г)11011,11-101,01 д)1101,101-1001,01
выполните умножение двоичных чисел
3) а)101х11 б)110х101 в)111х11 г)1011х11,01 д)1111,01х101 е)101,11х1,101

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function IsPrime(n:integer):boolean;
begin
  Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0)
end;

begin
  var n:=9;
  var a:=MatrixRandom(n,n,3,15);
  var k:=0;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do begin
      Write(a[i,j]:3);
      if IsPrime(a[i,j]) then Inc(k)
      end;
    Writeln
    end;
  Writeln('Простых чисел: ',k)
end.

Тестовое решение:
 12 15 13  5  8  5 11 14  9
  7  7 14 10  5 10  9 12  3
  8  8 10  7 12 14  7  6  9
 13 13  7  6  4  9 13 10 11
 15  4 11 12 11  4 12  8  9
  7  6 14  5 10 15  6  7  9
  4  7  6 14 13  5 11 13  3
  4  4  5  7 12 10 14  9 11
  7 12 13  8 10  6  8  3 15
Простых чисел: 32

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