30 ! 1 1)запишите на бланке или в тетради команды для выполнения следующих действий с таблицей «атлас мира» базы данных «»: →сортировка по двум ключам: в алфавитном порядке названия страны и по убыванию значения площади; →сортировки в порядке возрастания площади страны, исключая боливию; →удаление из таблицы всех записей о странах азии, имеющих горно-равнинный рельеф.2)опишите базу данных и команды системы базами данных на примере телефонной книги в вашем мобильном телефоне.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real); procedure getpoint(var q: point); begin   var a,b: real;   write('введите координаты точки: '); read(a,b);   q: =(a,b) end; function distance(a: point): =sqrt(sqr(a[0])+sqr(a[1])); begin   var a,b: (real,real);   getpoint(a);   getpoint(b);   var d1: =distance(a);   var d2: =distance(b);   if d1< d2 then writeln('первая точка ближе')   else       if d1> d2 then writeln('вторая точка ближе')       else writeln('точки равноудалены') end. пример введите координаты точки: 13.7 -11.25 введите координаты точки: 18 12.4 первая точка ближе

//pascalabc.net 3.2 сборка 1318 const   n=3;   m=4; var    ma: array[1..m,1..n] of integer;   ar: array[1..m] of integer;   i,j: integer; begin for i: =1 to m do   begin     ar[i]: =1;     for j: =1 to n do       begin         readln(ma[i][j]);         ar[i]*=ma[i][j];       end;   end; writeln('matrix: '); for i: =1 to m do   begin     for j: =1 to n do       write(ma[i][j]: 4);     writeln;   end; writeln('res: '); for i: =1 to m do writeln(i,': ',ar[i]); end.