Напишите актуальность к созданию базы данных для мебельной компании

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